cvsuser 04/08/03 11:23:41
Modified: t/pmc pmc.t
Log:
mod_p_p_i test
Revision Changes Path
1.91 +17 -3 parrot/t/pmc/pmc.t
Index: pmc.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/pmc.t,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -w -r1.90 -r1.91
--- pmc.t 23 Jul 2004 13:26:35 -0000 1.90
+++ pmc.t 3 Aug 2004 18:23:41 -0000 1.91
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: pmc.t,v 1.90 2004/07/23 13:26:35 leo Exp $
+# $Id: pmc.t,v 1.91 2004/08/03 18:23:41 scog Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 92;
+use Parrot::Test tests => 93;
use Test::More;
use Parrot::PMC qw(%pmc_types);
my $max_pmc = scalar(keys(%pmc_types)) + 1;
@@ -658,7 +658,6 @@
new P0, .PerlInt
new P1, .PerlString
new P2, .PerlInt
- new P3, .PerlNum
set P0, 11
set P1, "10"
mod P2, P0, P1
@@ -1293,6 +1292,21 @@
ok 1
OUTPUT
+output_is(<<CODE, <<OUTPUT, "mod_p_p_i, PerlInt");
[EMAIL PROTECTED] $fp_equality_macro ]}
+ new P0,.PerlInt
+ set P0,7
+ new P1,.PerlInt
+ mod P1, P0, 6
+ .fp_eq(P1,1,EQ1)
+ print "not "
+EQ1: print "ok 1"
+ print "\\n"
+ end
+CODE
+ok 1
+OUTPUT
+
output_is(<<CODE, <<OUTPUT, "typeof");
new P0,.PerlInt
