Browse files

stuff

  • Loading branch information...
1 parent 384d45d commit 69ebbdd908b6e416d3da92cec51033bd1947ee7e @leto leto committed Sep 7, 2009
Showing with 11 additions and 0 deletions.
  1. +11 −0 t/pmc/parrotobject-old.t
View
11 t/pmc/parrotobject-old.t
@@ -24,6 +24,17 @@ Tests the Object PMC.
=cut
pir_output_is( <<'CODE', <<'OUT', ':vtable and init' );
+.sub main :main
+ $P0 = newclass [ "Test" ]
+ $P1 = new [ "Test" ]
+ print "ok\n"
+.end
+
+.namespace [ "Test" ]
+
+.sub init :method :vtable
+ print "init\n"
+.end
CODE
init
ok

0 comments on commit 69ebbdd

Please sign in to comment.