Ticket #467: object-meths.patch

t/pmc/object-meths.t

@@ -6 +6 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 37;
+use Parrot::Test tests => 38;
 
 =head1 NAME
 
@@ -414 +414 @@
 OUTPUT
 }
 
-pasm_output_is( <<'CODE', <<'OUTPUT', "find_method" );
-    newclass P3, "Foo"
-    new P2, ['Foo']
+pir_output_is( <<'CODE', <<'OUTPUT', "find_method" );
+.sub main :main
+    $P3 = newclass "Foo"
+    $P2 = new $P3
 
-    set S0, "meth"
-    find_method P0, P2, S0
-    print "main\n"
-    callmethodcc P2, P0
-    print "back\n"
+    $P0 = find_method $P2, 'meth'
+    say 'main'
+    $P2.$P0()
+    say 'back'
+    $I0 = defined $P0
+    say $I0
     end
+.end
 
 .namespace ["Foo"]
-.pcc_sub :method meth:
-    print "in meth\n"
-    returncc
+.sub meth :method
+    say 'in meth'
+.end
 CODE
 main
 in meth
 back
+1
 OUTPUT
 
+pir_output_is( <<'CODE', <<'OUTPUT', 'find_method builtin PMC class' );
+.sub main :main
+  $P0 = new [ 'String' ]
+  $P0 = 'AbC'
+
+  $P1 = find_method $P0, 'lower'
+  $P2 = $P1($P0)
+  say $P2
+  $I0 = defined $P1
+  say $I0
+.end
+CODE
+abc
+1
+OUTPUT
+
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "find_method - unknown method" );
     newclass P2, "Foo"
     set S0, "nada"