cvsuser 03/10/16 12:44:47
Modified: t/pmc objects.t Log: Basic test for instantiate op Revision Changes Path 1.5 +13 -1 parrot/t/pmc/objects.t Index: objects.t =================================================================== RCS file: /cvs/public/parrot/t/pmc/objects.t,v retrieving revision 1.4 retrieving revision 1.5 diff -u -w -r1.4 -r1.5 --- objects.t 5 Oct 2003 13:49:48 -0000 1.4 +++ objects.t 16 Oct 2003 19:44:47 -0000 1.5 @@ -1,6 +1,6 @@ #! perl -w -use Parrot::Test tests => 7; +use Parrot::Test tests => 8; use Test::More; output_is(<<'CODE', <<'OUTPUT', "findclass (base class)"); @@ -144,3 +144,15 @@ CODE 0011 OUTPUT + +output_is(<<'CODE', <<'OUTPUT', "instantiate"); + newclass P1, "Foo" + instantiate P2, P1 + typeof S1, P2 # Is the correct PMC type created? + print S1 + print "\n" + end +CODE +ParrotObject +OUTPUT +
