[svn:parrot] r41258 - in trunk/t: op pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Sep 14 09:56:40 2009
New Revision: 41258
URL: https://trac.parrot.org/parrot/changeset/41258

Log:
[cage][t] Mark tests failing under JIT with todo. TT#983

Modified:
   trunk/t/op/calling.t
   trunk/t/pmc/sub.t

Modified: trunk/t/op/calling.t
==============================================================================
--- trunk/t/op/calling.t	Mon Sep 14 07:38:34 2009	(r41257)
+++ trunk/t/op/calling.t	Mon Sep 14 09:56:40 2009	(r41258)
@@ -1406,7 +1406,10 @@
 ok
 OUTPUT
 
-pir_output_is( <<'CODE', <<'OUTPUT', "clone_key_arg" );
+my @todo = ( todo => 'broken with JIT (TT #983)' )
+    if ( defined $ENV{TEST_PROG_ARGS} and
+        $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ );
+pir_output_is( <<'CODE', <<'OUTPUT', "clone_key_arg", @todo );
 .sub main :main
     foo()
     print "ok\n"

Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t	Mon Sep 14 07:38:34 2009	(r41257)
+++ trunk/t/pmc/sub.t	Mon Sep 14 09:56:40 2009	(r41258)
@@ -835,7 +835,10 @@
 main
 OUTPUT
 
-pir_output_is( <<'CODE', <<'OUTPUT', "caller introspection via interp" );
+my @todo = ( todo => 'broken with JIT (TT #983)' )
+    if ( defined $ENV{TEST_PROG_ARGS} and
+        $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ );
+pir_output_is( <<'CODE', <<'OUTPUT', "caller introspection via interp", @todo );
 .sub main :main
 .include "interpinfo.pasm"
     # this test will fail when run with -Oc
@@ -1435,7 +1438,7 @@
 OUTPUT
 
 $ENV{TEST_PROG_ARGS} ||= '';
-my @todo = $ENV{TEST_PROG_ARGS} =~ /--run-pbc/
+ at todo = $ENV{TEST_PROG_ARGS} =~ /--run-pbc/
     ? ( todo => 'lexicals not thawed properly from PBC, RT #60652' )
     : ();
 pir_output_is( <<'CODE', <<'OUTPUT', ':outer with identical sub names', @todo );