Ticket #467: object-meths.patch
File object-meths.patch, 1.4 KB (added by ronaldws, 11 years ago) |
---|
-
t/pmc/object-meths.t
6 6 use warnings; 7 7 use lib qw( . lib ../lib ../../lib ); 8 8 use Test::More; 9 use Parrot::Test tests => 3 7;9 use Parrot::Test tests => 38; 10 10 11 11 =head1 NAME 12 12 … … 414 414 OUTPUT 415 415 } 416 416 417 pasm_output_is( <<'CODE', <<'OUTPUT', "find_method" ); 418 newclass P3, "Foo" 419 new P2, ['Foo'] 417 pir_output_is( <<'CODE', <<'OUTPUT', "find_method" ); 418 .sub main :main 419 $P3 = newclass "Foo" 420 $P2 = new $P3 420 421 421 set S0, "meth" 422 find_method P0, P2, S0 423 print "main\n" 424 callmethodcc P2, P0 425 print "back\n" 422 $P0 = find_method $P2, 'meth' 423 say 'main' 424 $P2.$P0() 425 say 'back' 426 $I0 = defined $P0 427 say $I0 426 428 end 429 .end 427 430 428 431 .namespace ["Foo"] 429 . pcc_sub :method meth:430 print "in meth\n"431 returncc 432 .sub meth :method 433 say 'in meth' 434 .end 432 435 CODE 433 436 main 434 437 in meth 435 438 back 439 1 436 440 OUTPUT 437 441 442 pir_output_is( <<'CODE', <<'OUTPUT', 'find_method builtin PMC class' ); 443 .sub main :main 444 $P0 = new [ 'String' ] 445 $P0 = 'AbC' 446 447 $P1 = find_method $P0, 'lower' 448 $P2 = $P1($P0) 449 say $P2 450 $I0 = defined $P1 451 say $I0 452 .end 453 CODE 454 abc 455 1 456 OUTPUT 457 438 458 pasm_error_output_like( <<'CODE', <<'OUTPUT', "find_method - unknown method" ); 439 459 newclass P2, "Foo" 440 460 set S0, "nada"