Ticket #370: passing-nan-tests.patch

t/op/arithmetics.t

@@ -7 +7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 29;
+use Parrot::Test tests => 31;
 
 # test for GMP
 use Parrot::Config;
@@ -359 +359 @@
 -124
 OUTPUT
 
+
+pir_output_is( <<'CODE', <<OUTPUT, "rounding NaN gives NaN" );
+.sub main
+       $N0 = 'NaN'
+       $N2 = floor $N0
+       say $N2
+       $N1 = 'NaN'
+       $N3 = ceil $N1
+       say $N3
+.end
+CODE
+NaN
+NaN
+OUTPUT
+
+pir_output_is( <<'CODE', <<OUTPUT, "rounding Inf gives Inf");
+.sub main
+       $N0 = 'Inf'
+       $N1 = floor $N0
+       say $N1
+       $N2 = 'Inf'
+       $N3 = ceil $N2
+       say $N3
+
+       $N0 = '-Inf'
+       $N1 = floor $N0
+       say $N1
+       $N2 = '-Inf'
+       $N3 = ceil $N2
+       say $N3
+.end
+CODE
+Inf
+Inf
+-Inf
+-Inf
+OUTPUT
 #
 # FLOATVAL and INTVAL tests
 #