Author: pmichaud Date: Thu Jan 25 12:39:46 2007 New Revision: 16794 Modified: trunk/t/pmc/parrotobject.t
Log: [core]: * test for assign opcode in class inherited from ResizablePMCArray (test added at chromatic's request) Modified: trunk/t/pmc/parrotobject.t ============================================================================== --- trunk/t/pmc/parrotobject.t (original) +++ trunk/t/pmc/parrotobject.t Thu Jan 25 12:39:46 2007 @@ -6,7 +6,7 @@ use warnings; use lib qw( . lib ../lib ../../lib ); use Test::More; -use Parrot::Test tests => 7; +use Parrot::Test tests => 8; =head1 NAME @@ -166,6 +166,32 @@ Bar::get_string OUT + +# assign opcode in inherited classes +pir_output_is( <<'CODE', <<'OUT', 'assign opcode in inherited classes', 'todo' => 'assign opcode inheritance' ); +.sub main :main + $P1 = new .ResizablePMCArray + push $P1, 3 + $P2 = new .ResizablePMCArray + assign $P2, $P1 + $I0 = elements $P2 + print $I0 + print "\n" + + $P99 = subclass 'ResizablePMCArray', 'Perl6List' + $P1 = new 'Perl6List' + push $P1, 3 + $P2 = new 'Perl6List' + assign $P2, $P1 + $I0 = elements $P2 + print $I0 + print "\n" +.end +CODE +1 +1 +OUT + # ' # Local Variables:
