cvsuser 03/07/18 11:15:54
Added: t/pmc objects.t
Log:
Simon Glover cleans up the object functions
Revision Changes Path
1.1 parrot/t/pmc/objects.t
Index: objects.t
===================================================================
#! perl -w
use Parrot::Test tests => 2;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "findclass (base class)");
newclass P1, "Foo"
findclass I0, "Foo"
print I0
print "\n"
findclass I0, "Bar"
print I0
print "\n"
end
CODE
1
0
OUTPUT
output_is(<<'CODE', <<'OUTPUT', "findclass (subclass)");
newclass P1, "Foo"
subclass P2, P1, "Bar"
findclass I0, "Foo"
print I0
print "\n"
findclass I0, "Bar"
print I0
print "\n"
findclass I0, "Qux"
print I0
print "\n"
end
CODE
1
1
0
OUTPUT
