Author: coke Date: Wed Mar 7 07:49:45 2007 New Revision: 17376 Modified: trunk/ (props changed) trunk/t/pmc/parrotobject.t
Log: test for RT#41732 Modified: trunk/t/pmc/parrotobject.t ============================================================================== --- trunk/t/pmc/parrotobject.t (original) +++ trunk/t/pmc/parrotobject.t Wed Mar 7 07:49:45 2007 @@ -6,7 +6,7 @@ use warnings; use lib qw( . lib ../lib ../../lib ); use Test::More; -use Parrot::Test tests => 8; +use Parrot::Test tests => 9; =head1 NAME @@ -192,6 +192,24 @@ 1 OUT +pir_output_like( <<'CODE', <<'OUT', 'RT#41732'); +.namespace ['Foo'] + +.sub __invoke :method + .param pmc a + say 'hi' +.end + +.sub main :main + $P0 = newclass "Foo" + $P1 = new "Foo" + $P1() +.end +CODE +/1 params expected/ +OUT + + # ' # Local Variables:
