[svn:parrot] r37119 - in trunk/t: dynoplibs examples op pmc
cotto at svn.parrot.org
cotto at svn.parrot.org
Thu Mar 5 05:25:27 UTC 2009
Author: cotto
Date: Thu Mar 5 05:25:26 2009
New Revision: 37119
URL: https://trac.parrot.org/parrot/changeset/37119
Log:
[t] update runcore-related switches to the parrot exectuable
patch courtesy of rg++, closes TT #403
Modified:
trunk/t/dynoplibs/myops.t
trunk/t/examples/japh.t
trunk/t/op/01-parse_ops.t
trunk/t/op/bitwise.t
trunk/t/op/debuginfo.t
trunk/t/op/trans.t
trunk/t/pmc/nci.t
trunk/t/pmc/threads.t
trunk/t/pmc/timer.t
Modified: trunk/t/dynoplibs/myops.t
==============================================================================
--- trunk/t/dynoplibs/myops.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/dynoplibs/myops.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -67,7 +67,7 @@
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,7 +77,7 @@
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,9 +112,9 @@
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 );
Modified: trunk/t/examples/japh.t
==============================================================================
--- trunk/t/examples/japh.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/examples/japh.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -38,8 +38,8 @@
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
Modified: trunk/t/op/01-parse_ops.t
==============================================================================
--- trunk/t/op/01-parse_ops.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/op/01-parse_ops.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -77,7 +77,7 @@
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;
Modified: trunk/t/op/bitwise.t
==============================================================================
--- trunk/t/op/bitwise.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/op/bitwise.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -509,7 +509,7 @@
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
Modified: trunk/t/op/debuginfo.t
==============================================================================
--- trunk/t/op/debuginfo.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/op/debuginfo.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -24,11 +24,11 @@
=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,11 +164,11 @@
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,7 +183,7 @@
/$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" );
Modified: trunk/t/op/trans.t
==============================================================================
--- trunk/t/op/trans.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/op/trans.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -266,7 +266,7 @@
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'
Modified: trunk/t/pmc/nci.t
==============================================================================
--- trunk/t/pmc/nci.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/pmc/nci.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -1372,7 +1372,7 @@
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 );
Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/pmc/threads.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -733,9 +733,9 @@
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' ]
Modified: trunk/t/pmc/timer.t
==============================================================================
--- trunk/t/pmc/timer.t Thu Mar 5 05:20:21 2009 (r37118)
+++ trunk/t/pmc/timer.t Thu Mar 5 05:25:26 2009 (r37119)
@@ -153,7 +153,7 @@
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"
More information about the parrot-commits
mailing list