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

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Tue Aug 25 07:42:13 2009
New Revision: 40773
URL: https://trac.parrot.org/parrot/changeset/40773

Log:
[t] Add TODO tests for fdiv+PMC+NaN bug

Modified:
   trunk/t/op/inf_nan.t

Modified: trunk/t/op/inf_nan.t
==============================================================================
--- trunk/t/op/inf_nan.t	Tue Aug 25 06:39:28 2009	(r40772)
+++ trunk/t/op/inf_nan.t	Tue Aug 25 07:42:13 2009	(r40773)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 27;
+use Parrot::Test tests => 30;
 
 =head1 NAME
 
@@ -575,6 +575,48 @@
 OUTPUT
 }
 
+{
+local $TODO = 'fdiv does not play nicely with PMCs and NaN';
+pir_output_is(<<'CODE',<<OUTPUT,'fdiv with Integer PMCs and NaN');
+.sub main
+    $P1 = new "Integer"
+    $P2 = new "Integer"
+    $P2 = 1
+    $N0 = 'NaN'
+    fdiv $P1, $P2, $N0
+    say $P1
+.end
+CODE
+NaN
+OUTPUT
+
+pir_output_is(<<'CODE',<<OUTPUT,'fdiv with Float PMCs and NaN');
+.sub main
+    $P1 = new 'Float'
+    $P2 = new 'Float'
+    $P2 = 1
+    $N0 = 'NaN'
+    fdiv $P1, $P2, $N0
+    say $P1
+.end
+CODE
+NaN
+OUTPUT
+
+pir_output_is(<<'CODE',<<OUTPUT,'fdiv with Float and Integer PMCs and NaN');
+.sub main
+    $P1 = new 'Float'
+    $P2 = new 'Integer'
+    $P2 = 1
+    $N0 = 'NaN'
+    fdiv $P1, $P2, $N0
+    say $P1
+.end
+CODE
+NaN
+OUTPUT
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4