Ticket #951: threads.t.patch

t/pmc/threads.t

@@ -447 +447 @@
 ok beta3
 OUTPUT
 
-TODO: {
-    local $TODO = "vtable overrides aren't properly cloned RT # 46511";
-
-    pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_CLASSES; superclass not built-in" );
+pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_CLASSES; superclass not built-in" );
 .namespace [ 'Foo' ]
 
 .sub foometh :method
@@ -508 +505 @@
     .local pmc thread
     thread = new ['ParrotThread']
     .local pmc _thread_func
-    _thread_func = get_global ['main'], 'thread_test_func'
+    _thread_func = get_global 'thread_test_func'
     $I0 = .PARROT_CLONE_CODE
     bor $I0, $I0, .PARROT_CLONE_CLASSES
     print "in thread:\n"
@@ -533 +530 @@
 Foo? 1
 Bar? 1
 OUTPUT
-}
 
 pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_CLASSES; superclass built-in" );
 .namespace [ 'Foo' ]
@@ -818 +814 @@
 CODE
 
 pir_output_is(
-    <<'CODE', <<'OUTPUT', "CLONE_CODE|CLONE_GLOBALS|CLONE_HLL|CLONE_LIBRARIES", todo => 'RT #41373' );
+    <<'CODE', <<'OUTPUT', "CLONE_CODE|CLONE_GLOBALS|CLONE_HLL|CLONE_LIBRARIES" );
 .HLL 'Perl'
 .loadlib 'perl_group'
 
@@ -829 +825 @@
 .sub test
     .param pmc passed_value
     .local pmc the_value
-    the_value = new ['PerlInt']
+    the_value = new ['Integer']
     the_value = 42
-    store_global 'Foo', 'x', the_value
-    $I0 = typeof passed_value
-    $I1 = typeof the_value
-    $I0 = $I0 - $I1
+    set_global ['Foo'], 'x', the_value
+    $S0 = typeof passed_value
+    $S1 = typeof the_value
+    $I0 = $S0 != $S1
     print $I0
     print "\n"
     .local pmc ns
@@ -848 +844 @@
 okay:
     print "ok (equal)\n"
 
-    $I0 = fortytwo
+    $I0 = 42
     print $I0
     print "\n"
 .end
@@ -865 +861 @@
     bor flags, flags, .PARROT_CLONE_LIBRARIES
 
     .local pmc passed
-    passed = new ['PerlInt']
+    passed = new ['Integer']
     passed = 15
 
     .local pmc thread_func