cvsuser 03/10/10 02:13:55
Modified: t/pmc io.t
Log:
callmeth test
Revision Changes Path
1.19 +15 -1 parrot/t/pmc/io.t
Index: io.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/io.t,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- io.t 23 Sep 2003 13:32:23 -0000 1.18
+++ io.t 10 Oct 2003 09:13:55 -0000 1.19
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 20;
+use Parrot::Test tests => 21;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "open/close");
@@ -324,6 +324,20 @@
ok1: print "ok 1\n"
find_method P0, P5, "puts"
invoke
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+output_is(<<'CODE', <<'OUTPUT', 'callmeth puts');
+ getstderr P2 # the object
+ set S0, "puts" # method
+ set P5, P2 # first param
+ set S5, "ok 1\n" # 2nd param
+ callmeth
+ set S5, "ok 2\n"
+ callmeth
end
CODE
ok 1
