Author: jisom Date: Fri Apr 28 20:53:06 2006 New Revision: 12455 Modified: trunk/t/pmc/objects.t
Log: Add a failing test for newclass with the [] syntax. c1 = newclass ['Foo'] c2 = newclass ['Foo';'Baz'] fails, but c2 = newclass ['Foo';'Baz'] c1 = newclass ['Foo'] succeeds. Modified: trunk/t/pmc/objects.t ============================================================================== --- trunk/t/pmc/objects.t (original) +++ trunk/t/pmc/objects.t Fri Apr 28 20:53:06 2006 @@ -6,7 +6,7 @@ use warnings; use lib qw( . lib ../lib ../../lib ); use Test::More; -use Parrot::Test tests => 73; +use Parrot::Test tests => 74; =head1 NAME @@ -2131,3 +2131,26 @@ CODE 0 OUTPUT + +pir_output_is(<<'CODE', <<'OUTPUT', "new nested ordering"); +.sub main :main + .local pmc c1, c2 + c1 = newclass ['Foo'] + c2 = newclass ['Foo';'Baz'] + print "ok\n" +.end +.namespace ['Foo'] +.sub __init :method + print "__init Foo\n" +.end +.namespace ['Foo';'Bar'] +.sub __init :method + print "__init Bar\n" +.end +CODE +__init Foo +__init Bar +ok +OUTPUT + +
