@@ -20,21 +20,29 @@ is NaN ** 0, NaN, "NaN ** 0";
20
20
is 0 ** 0 , 1 , " 0**0 is 1, _not_ NaN" ;
21
21
is Inf ** 0 , 1 , " Inf**0 is 1, _not_ NaN" ;
22
22
23
+ # ?rakudo todo 'nom regression'
23
24
ok NaN ~~ NaN , ' NaN is a NaN' ;
24
25
nok 4 ~~ NaN , ' 4 is not a NaN' ;
25
26
nok 4 . Num ~~ NaN , " 4.Num is not a NaN" ;
26
27
27
28
isa_ok NaN + 1 i, Complex , " NaN + 1i is a Complex number" ;
29
+ # ?rakudo todo 'nom regression'
28
30
ok NaN + 1 i ~~ NaN , " NaN + 1i ~~ NaN" ;
31
+ # ?rakudo todo 'nom regression'
29
32
ok NaN ~~ NaN + 1 i, " NaN ~~ NaN + 1i" ;
30
33
31
34
isa_ok (NaN )i, Complex , " (NaN)i is a Complex number" ;
35
+ # ?rakudo todo 'nom regression'
32
36
ok (NaN )i ~~ NaN , " (NaN)i ~~ NaN" ;
37
+ # ?rakudo todo 'nom regression'
33
38
ok NaN ~~ (NaN )i, " NaN ~~ (NaN)i" ;
34
39
40
+ # ?rakudo todo 'nom regression'
35
41
ok (NaN )i ~~ NaN + 1 i, " (NaN)i ~~ NaN + 1i" ;
42
+ # ?rakudo todo 'nom regression'
36
43
ok NaN + 1 i ~~ (NaN )i, " NaN + 1i ~~ (NaN)i" ;
37
44
45
+ # ?rakudo todo 'nom regression'
38
46
ok truncate (NaN ) ~~ NaN , ' truncate(NaN) ~~ NaN' ;
39
47
40
48
# vim: ft=perl6
0 commit comments