Author: pmichaud Date: Fri Apr 21 17:57:28 2006 New Revision: 12395 Modified: trunk/t/pmc/objects.t
Log: [parrot]: Added test for "isa $P0, ['Foo';'Bar']" Modified: trunk/t/pmc/objects.t ============================================================================== --- trunk/t/pmc/objects.t (original) +++ trunk/t/pmc/objects.t Fri Apr 21 17:57:28 2006 @@ -6,7 +6,7 @@ use warnings; use lib qw( . lib ../lib ../../lib ); use Test::More; -use Parrot::Test tests => 72; +use Parrot::Test tests => 73; =head1 NAME @@ -2118,3 +2118,16 @@ CODE Perl6;PAST;Node OUTPUT + +pir_output_is(<<'CODE', <<'OUTPUT', "isa"); +.sub main :main + .local pmc base, o1, o2 + base = subclass 'Hash', ['Perl6'; 'PAST'; 'Node'] + $P0 = new [ 'Perl6'; 'PAST'; 'Node' ] + $I0 = isa $P0, [ 'Perl6'; 'PAST'; 'Node'] + print $I0 + print "\n" +.end +CODE +0 +OUTPUT
