cvsuser 04/12/23 05:03:23
Modified: t/dynclass pyint.t Log: Add an "is" test Revision Changes Path 1.4 +22 -2 parrot/t/dynclass/pyint.t Index: pyint.t =================================================================== RCS file: /cvs/public/parrot/t/dynclass/pyint.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- pyint.t 18 Dec 2004 03:51:48 -0000 1.3 +++ pyint.t 23 Dec 2004 13:03:23 -0000 1.4 @@ -1,6 +1,6 @@ #! perl -w # Copyright: 2001-2003 The Perl Foundation. All Rights Reserved. -# $Id: pyint.t,v 1.3 2004/12/18 03:51:48 rubys Exp $ +# $Id: pyint.t,v 1.4 2004/12/23 13:03:23 rubys Exp $ =head1 NAME @@ -16,7 +16,7 @@ =cut -use Parrot::Test tests => 24; +use Parrot::Test tests => 25; output_is(<< 'CODE', << 'OUTPUT', "abs"); ##PIR## @@ -251,6 +251,26 @@ 12 12 OUTPUT +output_is(<< 'CODE', << 'OUTPUT', "is"); +##PIR## +.sub main @MAIN + loadlib P1, "python_group" + new $P0, "PyInt" + new $P1, "PyInt" + + set $P0, 31 + set $P1, 31 + + new $P2, "PyBoolean" + issame $I0, $P0, $P1 + set $P2, $I0 + print $P2 + print "\n" +.end +CODE +True +OUTPUT + output_is(<< 'CODE', << 'OUTPUT', "lshift"); ##PIR## .sub main @MAIN
