[svn:parrot] r40774 - trunk/t/op

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Tue Aug 25 07:57:04 2009
New Revision: 40774
URL: https://trac.parrot.org/parrot/changeset/40774

Log:
[t] Add TODO tests for cmod and mod, which have the same NaN bug as fdiv

Modified:
   trunk/t/op/inf_nan.t

Modified: trunk/t/op/inf_nan.t
==============================================================================
--- trunk/t/op/inf_nan.t	Tue Aug 25 07:42:13 2009	(r40773)
+++ trunk/t/op/inf_nan.t	Tue Aug 25 07:57:04 2009	(r40774)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 30;
+use Parrot::Test tests => 32;
 
 =head1 NAME
 
@@ -576,7 +576,7 @@
 }
 
 {
-local $TODO = 'fdiv does not play nicely with PMCs and NaN';
+local $TODO = 'fdiv/mod/cmod do not play nicely with PMCs and NaN';
 pir_output_is(<<'CODE',<<OUTPUT,'fdiv with Integer PMCs and NaN');
 .sub main
     $P1 = new "Integer"
@@ -615,6 +615,32 @@
 CODE
 NaN
 OUTPUT
+
+pir_output_is(<<'CODE',<<OUTPUT,'cmod with Float and Integer PMCs and NaN');
+.sub main
+    $P1 = new 'Float'
+    $P2 = new 'Integer'
+    $P2 = 1
+    $N0 = 'NaN'
+    cmod $P1, $P2, $N0
+    say $P1
+.end
+CODE
+NaN
+OUTPUT
+
+pir_output_is(<<'CODE',<<OUTPUT,'mod with Float and Integer PMCs and NaN');
+.sub main
+    $P1 = new 'Float'
+    $P2 = new 'Integer'
+    $P2 = 1
+    $N0 = 'NaN'
+    mod $P1, $P2, $N0
+    say $P1
+.end
+CODE
+NaN
+OUTPUT
 }
 
 # Local Variables: