cvsuser 03/10/17 09:06:48
Modified: t/pmc objects.t
Log:
More extensive test for getclass
Revision Changes Path
1.6 +12 -2 parrot/t/pmc/objects.t
Index: objects.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/objects.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- objects.t 16 Oct 2003 19:44:47 -0000 1.5
+++ objects.t 17 Oct 2003 16:06:48 -0000 1.6
@@ -67,11 +67,21 @@
output_like(<<'CODE', <<'OUTPUT', "getclass");
newclass P1, "Foo"
getclass P2, "Foo"
- printerr "ok 1\n"
+ classname S2, P2
+ print S2
+ print "\n"
+
+ subclass P3, P1, "FooBar"
+ getclass P4, "FooBar"
+ classname S4, P4
+ print S4
+ print "\n"
+
getclass P3, "NoSuch"
end
CODE
-/ok 1
+/Foo
+FooBar
Class doesn't exist/
OUTPUT
# ' for vim
