@@ -13,42 +13,42 @@ const u8map = [1, 4, 5, 7, 8, 9, 10, 11, 12, 13, 16, 17, 19, 20, 21, 22, 23, 24,
13
13
function test2 (dir, P, str, list)
14
14
for (p, res) in list
15
15
pat = P (p)
16
- (r = fnd (dir, pat, str)) == res ||
16
+ (r = fnd (dir, pat, str)) === res ||
17
17
println (" fnd($dir , $(typeof (pat)) :\" $pat \" , $(typeof (str)) :\" $str \" ) => $r != $res " )
18
- @test fnd (dir, pat, str) == res
18
+ @test fnd (dir, pat, str) === res
19
19
end
20
20
end
21
21
22
22
function test3 (dir, P, str, list)
23
23
for (p, beg, res) in list
24
24
pat = P (p)
25
- (r = fnd (dir, pat, str, beg)) == res ||
25
+ (r = fnd (dir, pat, str, beg)) === res ||
26
26
println (" fnd($dir , $(typeof (pat)) :\" $pat \" , $(typeof (str)) :\" $str \" , $beg ) => $r != $res " )
27
- @test fnd (dir, pat, str, beg) == res
27
+ @test fnd (dir, pat, str, beg) === res
28
28
end
29
29
end
30
30
31
31
function test2ch (dir, C, str, list)
32
32
for (p, res) in list
33
33
pat = cvtchar (C, p)
34
- (r = fnd (dir, pat, str)) == res ||
34
+ (r = fnd (dir, pat, str)) === res ||
35
35
println (" fnd($dir , $(typeof (p)) :\" $pat \" ), $(typeof (str)) :\" $str \" ) => $r != $res " )
36
- (r = fnd (dir, == (pat), str)) == res ||
36
+ (r = fnd (dir, == (pat), str)) === res ||
37
37
println (" fnd($dir , ==($(typeof (pat)) :\" $pat \" ), $(typeof (str)) :\" $str \" ) => $r != $res " )
38
- @test fnd (dir, pat, str) == res
39
- @test fnd (dir, == (pat), str) == res
38
+ @test fnd (dir, pat, str) === res
39
+ @test fnd (dir, == (pat), str) === res
40
40
end
41
41
end
42
42
43
43
function test3ch (dir, C, str, list)
44
44
for (p, beg, res) in list
45
45
pat = cvtchar (C, p)
46
- (r = fnd (dir, pat, str, beg)) == res ||
46
+ (r = fnd (dir, pat, str, beg)) === res ||
47
47
println (" fnd($dir , $(typeof (pat)) :'$pat ', $(typeof (str)) :\" $str \" , $beg ) => $r != $res " )
48
- (r = fnd (dir, == (pat), str, beg)) == res ||
48
+ (r = fnd (dir, == (pat), str, beg)) === res ||
49
49
println (" fnd($dir , ==($(typeof (pat)) :'$pat '), $(typeof (str)) :\" $str \" , $beg ) => $r != $res " )
50
- @test fnd (dir, pat, str, beg) == res
51
- @test fnd (dir, == (pat), str, beg) == res
50
+ @test fnd (dir, pat, str, beg) === res
51
+ @test fnd (dir, == (pat), str, beg) === res
52
52
end
53
53
end
54
54
@@ -147,14 +147,14 @@ end
147
147
@testset " find empty string,..." begin
148
148
i = 1
149
149
while i <= ncodeunits (str)
150
- @test fnd (Fwd, emptyP, str, i) == i: i- 1
151
- @test fnd (Rev, emptyP, str, i) == i: i- 1
150
+ @test fnd (Fwd, emptyP, str, i) === i: i- 1
151
+ @test fnd (Rev, emptyP, str, i) === i: i- 1
152
152
i = nextind (str, i)
153
153
end
154
154
end
155
155
156
- @test fnd (First, emptyP, emptyT) == 1 : 0
157
- @test fnd (Last, emptyP, emptyT) == 1 : 0
156
+ @test fnd (First, emptyP, emptyT) === 1 : 0
157
+ @test fnd (Last, emptyP, emptyT) === 1 : 0
158
158
end
159
159
end
160
160
end
232
232
@testset " find empty string,..." begin
233
233
i = 1
234
234
while i <= ncodeunits (str)
235
- @test fnd (Fwd, empty, str, i) == i: i- 1
236
- @test fnd (Rev, empty, str, i) == i: i- 1
235
+ @test fnd (Fwd, empty, str, i) === i: i- 1
236
+ @test fnd (Rev, empty, str, i) === i: i- 1
237
237
i = nextind (str, i)
238
238
end
239
239
end
0 commit comments