Permalink
Browse files

[t/spec] tests for (Inf|NaN|-Inf).Int

git-svn-id: http://svn.pugscode.org/pugs@27620 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 025127e commit b192c0cfc4b3c4fac59d8682cdd1d11dbca23833 moritz committed Jul 19, 2009
Showing with 8 additions and 3 deletions.
  1. +8 −3 S02-builtin_data_types/infinity.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 9;
+plan 12;
# L<S02/"Built-In Data Types" /Perl 6 should by default make standard IEEE floating point concepts visible>
@@ -39,5 +39,10 @@ plan 9;
# Inf eq Inf # same as
# ~Inf eq ~Inf # true
-#?rakudo todo 'truncate(Inf)'
-ok truncate(Inf) ~~ Inf, 'truncate(Inf) ~~ Inf';
+#?rakudo 4 todo 'truncate(Inf)'
+ok truncate(Inf) ~~ Inf, 'truncate(Inf) ~~ Inf';
+ok NaN.Int === NaN, 'Inf.Int === Int';
+ok Inf.Int === Inf, 'Inf.Int === Int';
+ok (-Inf).Int === (-Inf), 'Inf.Int === Int';
+
+# vim: ft=perl6

0 comments on commit b192c0c

Please sign in to comment.