[netlabs #748] [PATCH] PMC tests

# New Ticket Created by  Simon Glover 
# Please include the string:  [netlabs #748]
# in the subject line of all future correspondence about this issue. 
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=748 >



  More extensive tests for the mul_p_p op.

  Simon


--- t/pmc/pmc.t.old	Sat Jun 29 12:58:59 2002
+++ t/pmc/pmc.t	Sat Jun 29 13:19:14 2002
@@ -1,6 +1,6 @@
 #! perl -w

-use Parrot::Test tests => 57;
+use Parrot::Test tests => 58;
 use Test::More;

 my $fp_equality_macro = <<'ENDOFMACRO';
@@ -1259,16 +1259,55 @@ ok 3
 ok 4
 OUTPUT

-output_is(<<CODE, <<OUTPUT, "mul_p_p");
-    new P0,.PerlInt
-    new P1,.PerlInt
-    set P0,8
-    set P1,2
-    mul P0,P1
-    print P0
-    print "\\n"
+output_is(<<CODE, <<OUTPUT, "mul_p_p, PerlInt");
+@{[ $fp_equality_macro ]}
+        new P0,.PerlInt
+        new P1,.PerlInt
+        set P0,8
+        set P1,2
+        mul P0,P1
+        .fp_eq(P0,16,EQ1)
+        print "not "
+EQ1:	print "ok 1"
+        print "\\n"
+
+        new P2, .PerlNum
+        set P2, 0.0625
+        mul P0, P2
+        .fp_eq(P0,1,EQ2)
+        print "not "
+EQ2:	print "ok 2"
+        print "\\n"
+        end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "mul_p_p, PerlNum");
+@{[ $fp_equality_macro ]}
+        new P0,.PerlNum
+        new P1,.PerlNum
+        set P0,-2.5
+        set P1,2.5
+        mul P0,P1
+        .fp_eq(P0,-6.25,EQ1)
+        print "not "
+EQ1:	print "ok 1"
+	print "\\n"
+
+        new P2, .PerlInt
+        set P2, 2
+        mul P0, P2
+        .fp_eq(P0,-12.5,EQ2)
+        print "not "
+EQ2:	print "ok 2"
+	print "\\n"
+
+	end
 CODE
-16
+ok 1
+ok 2
 OUTPUT

 1;

• [netlabs #748] [PATCH] PMC tests by Simon Glover