Author: chromatic
Date: Mon Jun 18 19:20:13 2007
New Revision: 19105
Modified:
trunk/t/op/bitwise.t
trunk/t/pmc/threads.t
Log:
[t] Mark two tests as TODO as they fail with various runcores.
We should test with various runcores more often to catch these *before* a
release.
Modified: trunk/t/op/bitwise.t
==============================================================================
--- trunk/t/op/bitwise.t (original)
+++ trunk/t/op/bitwise.t Mon Jun 18 19:20:13 2007
@@ -506,7 +506,11 @@
skip 'no BigInt lib found' => 1
unless $PConfig{gmp};
- pir_output_is( <<'CODE', <<'OUT', "I-reg shl and PMC shl are consistent");
+ my @todo;
+ @todo = ( todo => 'broken with JIT (RT #43245) )
+ if $ENV{TEST_PROG_ARGS} =~ /-j/;
+
+ 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
## BigInt in an I register, but we can produce the same result modulo wordsize.
## [Only we cheat by using the word size minus one, so that we don't have to
Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t (original)
+++ trunk/t/pmc/threads.t Mon Jun 18 19:20:13 2007
@@ -809,6 +809,7 @@
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/;
}
pir_output_unlike( <<'CODE', qr/not/, "globals + constant table subs issue",
@todo );
.namespace [ 'Foo' ]
