@@ -13,42 +13,42 @@ const u8map = [1, 4, 5, 7, 8, 9, 10, 11, 12, 13, 16, 17, 19, 20, 21, 22, 23, 24,
1313function test2 (dir, P, str, list)
1414 for (p, res) in list
1515 pat = P (p)
16- (r = fnd (dir, pat, str)) == res ||
16+ (r = fnd (dir, pat, str)) === res ||
1717 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
1919 end
2020end
2121
2222function test3 (dir, P, str, list)
2323 for (p, beg, res) in list
2424 pat = P (p)
25- (r = fnd (dir, pat, str, beg)) == res ||
25+ (r = fnd (dir, pat, str, beg)) === res ||
2626 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
2828 end
2929end
3030
3131function test2ch (dir, C, str, list)
3232 for (p, res) in list
3333 pat = cvtchar (C, p)
34- (r = fnd (dir, pat, str)) == res ||
34+ (r = fnd (dir, pat, str)) === res ||
3535 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 ||
3737 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
4040 end
4141end
4242
4343function test3ch (dir, C, str, list)
4444 for (p, beg, res) in list
4545 pat = cvtchar (C, p)
46- (r = fnd (dir, pat, str, beg)) == res ||
46+ (r = fnd (dir, pat, str, beg)) === res ||
4747 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 ||
4949 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
5252 end
5353end
5454
@@ -147,14 +147,14 @@ end
147147 @testset " find empty string,..." begin
148148 i = 1
149149 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
152152 i = nextind (str, i)
153153 end
154154 end
155155
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
158158 end
159159 end
160160end
232232 @testset " find empty string,..." begin
233233 i = 1
234234 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
237237 i = nextind (str, i)
238238 end
239239 end
0 commit comments