Ticket #403: tests.patch

t/pmc/timer.t

@@ -153 +153 @@
 ok 2
 OUT
 
-    my @todo = $ENV{TEST_PROG_ARGS} =~ /-j/ ?
+    my @todo = $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ ?
        ( todo => 'RT #49718, add scheduler features to JIT' ) : ();
     pasm_output_is( <<'CODE', <<'OUT', "Timer setup - initializer/start/repeat" , @todo );
 .include "timer.pasm"

t/pmc/threads.t

@@ -733 +733 @@
 my @todo;
 
 if ( $ENV{TEST_PROG_ARGS} ) {
-    push @todo, ( todo => 'Broken with CGP' ) if $ENV{TEST_PROG_ARGS} =~ /-C/;
-    push @todo, ( todo => 'Broken with JIT' ) if $ENV{TEST_PROG_ARGS} =~ /-j/;
-    push @todo, ( todo => 'Broken with -S' )  if $ENV{TEST_PROG_ARGS} =~ /-S/;
+    push @todo, ( todo => 'Broken with CGP' ) if $ENV{TEST_PROG_ARGS} =~ /--runcore=cgp/;
+    push @todo, ( todo => 'Broken with JIT' ) if $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/;
+    push @todo, ( todo => 'Broken with switch core' )  if $ENV{TEST_PROG_ARGS} =~ /--runcore=switch/;
 }
 pir_output_unlike( <<'CODE', qr/not/, "globals + constant table subs issue", @todo );
 .namespace [ 'Foo' ]

t/pmc/nci.t

@@ -1372 +1372 @@
 OUTPUT
 
   # Tests with callback functions
-  my @todo = $ENV{TEST_PROG_ARGS} =~ /-j/ ?
+  my @todo = $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ ?
     ( todo => 'RT #49718, add scheduler tasks to JIT' ) : ();
 
   pasm_output_is( <<'CODE', <<'OUTPUT', "nci_cb_C1 - PASM", @todo );

t/dynoplibs/myops.t

@@ -67 +67 @@
     my @todo;
 
     if ( $ENV{TEST_PROG_ARGS} ) {
-        @todo = ( todo => 'broken with -j' ) if $ENV{TEST_PROG_ARGS} =~ /-j/;
+        @todo = ( todo => 'broken with JIT' ) if $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/;
     }
 
     my $quine = <<'END_PASM';
@@ -77 +77 @@
     pasm_output_is( $quine, $quine, 'a short cheating quine', @todo );
 }
 
-    my @todo = $ENV{TEST_PROG_ARGS} =~ /-j/ ?
+    my @todo = $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ ?
        ( todo => 'RT #49718, add scheduler features to JIT' ) : ();
 
 pir_output_is( << 'CODE', << 'OUTPUT', "one alarm", @todo );
@@ -112 +112 @@
 
 SKIP: {
     skip "three alarms, infinite loop under mingw32", 2 if $is_mingw;
-    skip "dynops weird in CGP with events", 2 if $ENV{TEST_PROG_ARGS} =~ /-g/;
+    skip "dynops weird in CGP with events", 2 if $ENV{TEST_PROG_ARGS} =~ /--runcore=cgoto/;
 
-    my @todo = $ENV{TEST_PROG_ARGS} =~ /-j/ ?
+    my @todo = $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ ?
        ( todo => 'RT #49718, add scheduler features to JIT' ) : ();
 
     pir_output_like( << 'CODE', << 'OUTPUT', "three alarm", @todo );

t/examples/japh.t

@@ -38 +38 @@
 if ( $PConfig{intvalsize} == 8 ) {
     $todo{2} = 'works only with 32-bit integer values';
 }
-if ( defined( $ENV{TEST_PROG_ARGS}) && $ENV{TEST_PROG_ARGS} =~ /-j/ ) {
-    $todo{4} = 'broken with -j';
+if ( defined( $ENV{TEST_PROG_ARGS}) && $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ ) {
+    $todo{4} = 'broken with JIT';
 }
 
 # run all tests and tell about todoness

t/op/trans.t

@@ -266 +266 @@
 OUTPUT
 
 my $runcore = $ENV{TEST_PROG_ARGS} || '';
-my @todo    = ( $runcore =~ /j/ ? ( todo => 'broken under JIT TT #201' ) : () );
+my @todo    = ( $runcore =~ /--runcore=jit/ ? ( todo => 'broken under JIT TT #201' ) : () );
 
 pasm_output_is( <<"CODE", <<OUTPUT, 'atan2', @todo );
         .include 'include/fp_equality.pasm'

t/op/debuginfo.t

@@ -24 +24 @@
 =cut
 
 $ENV{TEST_PROG_ARGS} ||= '';
-my $nolineno = $ENV{TEST_PROG_ARGS} =~ /-f/
+my $nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=(fast|cgoto)/
     ? "\\(unknown file\\)\n-1" : "debuginfo_\\d+\\.pasm\n\\d";
 
 SKIP: {
-skip "disabled on fast-core",1 if $ENV{TEST_PROG_ARGS} =~ /[^-]?-[fg]/;
+skip "disabled on fast-core",1 if $ENV{TEST_PROG_ARGS} =~ /--runcore=(fast|cgoto)/;
 
 pasm_output_like( <<'CODE', <<"OUTPUT", "getline, getfile" );
 .pcc_sub main:
@@ -164 +164 @@
 called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
 OUTPUT
 
-$nolineno = $ENV{TEST_PROG_ARGS} =~ /-f/
+$nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/
     ? '\(\(unknown file\):-1\)' : '\(xyz.pir:126\)';
 
 SKIP: {
-skip "disabled on this core",2 if $ENV{TEST_PROG_ARGS} =~ /[^-]?-[fgjS]/;
+skip "disabled on this core",2 if $ENV{TEST_PROG_ARGS} =~ /--runcore=(fast|cgoto|jit|switch)/;
 
 # See "RT #43269 and .annotate
 pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" );
@@ -183 +183 @@
 /$nolineno/
 OUTPUT
 
-$nolineno = $ENV{TEST_PROG_ARGS} =~ /-f/
+$nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=(fast|cgoto|jit|switch)/
     ? '\(\(unknown file\):-1\)' : '\(foo.p6:128\)';
 # See "RT #43269 and .annotate
 pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" );

t/op/bitwise.t

@@ -509 +509 @@
     my @todo;
     @todo = ( todo => 'broken with JIT (RT #43245)' )
         if ( defined $ENV{TEST_PROG_ARGS} and 
-            $ENV{TEST_PROG_ARGS} =~ /-j/ );
+            $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ );
 
     pir_output_is( <<'CODE', <<'OUT', "I-reg shl and PMC shl are consistent", @todo );
 ## The PMC shl op will promote Integer to Bigint when needed.  We can't stuff a

t/op/01-parse_ops.t

@@ -77 +77 @@
     if $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/;
 
 plan skip_all => 'IMCC cannot do parse-only with switched core'
-    if $ENV{TEST_PROG_ARGS} =~ /-S/;
+    if $ENV{TEST_PROG_ARGS} =~ /--runcore=switch/;
 
 plan tests => scalar keys %cmds;