Author: leo Date: Wed Jan 24 15:23:58 2007 New Revision: 16783 Modified: trunk/t/pmc/object-meths.t
Log: add failing test re new init/init_pmc behaviou?r Modified: trunk/t/pmc/object-meths.t ============================================================================== --- trunk/t/pmc/object-meths.t (original) +++ trunk/t/pmc/object-meths.t Wed Jan 24 15:23:58 2007 @@ -6,7 +6,7 @@ use warnings; use lib qw( . lib ../lib ../../lib ); use Test::More; -use Parrot::Test tests => 35; +use Parrot::Test tests => 36; =head1 NAME @@ -1146,6 +1146,30 @@ a OUTPUT +pir_output_is( <<'CODE', <<'OUTPUT', "init calls" ); +.sub main :main + .local pmc cl, o + cl = newclass 'MyClass' + o = new 'MyClass' + o = new 'MyClass', $P0 +.end + +.namespace ['MyClass'] + +.sub init :method :vtable + .param pmc initializer :optional + print "init was called\n" +.end + +.sub init_pmc :method :vtable + .param pmc initializer + print "WTF!\n" +.end +CODE +init was called +init was called +OUTPUT + # Local Variables: # mode: cperl # cperl-indent-level: 4
