cvsuser 04/02/25 13:57:29
Modified: t/pmc objects.t Log: Simple test for classoffset op Revision Changes Path 1.19 +15 -2 parrot/t/pmc/objects.t Index: objects.t =================================================================== RCS file: /cvs/public/parrot/t/pmc/objects.t,v retrieving revision 1.18 retrieving revision 1.19 diff -u -w -r1.18 -r1.19 --- objects.t 25 Feb 2004 19:45:09 -0000 1.18 +++ objects.t 25 Feb 2004 21:57:29 -0000 1.19 @@ -1,6 +1,6 @@ #! perl -w # Copyright: 2001-2003 The Perl Foundation. All Rights Reserved. -# $Id: objects.t,v 1.18 2004/02/25 19:45:09 scog Exp $ +# $Id: objects.t,v 1.19 2004/02/25 21:57:29 scog Exp $ =head1 NAME @@ -16,7 +16,7 @@ =cut -use Parrot::Test tests => 21; +use Parrot::Test tests => 22; use Test::More; output_is(<<'CODE', <<'OUTPUT', "findclass (base class)"); @@ -509,4 +509,17 @@ 101 102 103 +OUTPUT + +output_is(<<'CODE', <<'OUTPUT', "classoffset (single class)"); + newclass P1, "Foo" + addattribute P1, "i" + find_type I0, "Foo" + new P2, I0 + classoffset I1, P2, "Foo" + print I1 + print "\n" + end +CODE +0 OUTPUT
