[svn:parrot] r39576 - trunk/t/op

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Mon Jun 15 21:33:37 2009
New Revision: 39576
URL: https://trac.parrot.org/parrot/changeset/39576

Log:
[t] add patch from mikehh++ to fix TODO test passing in some places in t/op/debuginfo.t

Modified:
   trunk/t/op/debuginfo.t

Modified: trunk/t/op/debuginfo.t
==============================================================================
--- trunk/t/op/debuginfo.t	Mon Jun 15 21:30:40 2009	(r39575)
+++ trunk/t/op/debuginfo.t	Mon Jun 15 21:33:37 2009	(r39576)
@@ -29,8 +29,6 @@
 
 #SKIP: {
 #skip "disabled on fast-core",1 if $ENV{TEST_PROG_ARGS} =~ /--runcore=(fast|cgoto)/;
-TODO: {
-    local $TODO = q|Not yet passing on 'fast' or 'cgoto' runcores|;
 
 pasm_output_like( <<'CODE', <<"OUTPUT", "getline, getfile" );
 .pcc_sub main:
@@ -43,8 +41,6 @@
 /$nolineno/
 OUTPUT
 
-} # END TODO
-
 pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - Null PMC access" );
 .sub main
     print "ok 1\n"
@@ -173,7 +169,8 @@
 #SKIP: {
 #skip "disabled on this core",2 if $ENV{TEST_PROG_ARGS} =~ /--runcore=(fast|cgoto|jit|switch)/;
 TODO: {
-    local $TODO = q|Not yet passing on 'fast', 'cgoto', 'jit' or 'switch' runcores|;
+    local $TODO = q|Not yet passing on 'cgoto', 'jit' or 'switch' runcores|
+        if $ENV{TEST_PROG_ARGS} =~ /--runcore=(cgoto|jit|switch)/;
 
 # See "RT #43269 and .annotate
 pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" );
@@ -188,6 +185,12 @@
 /$nolineno/
 OUTPUT
 
+} # END TODO
+
+TODO: {
+    local $TODO = q|Not yet passing on 'jit' or 'switch' runcores|
+        if $ENV{TEST_PROG_ARGS} =~ /--runcore=(jit|switch)/;
+
 $nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=(fast|cgoto|jit|switch)/
     ? '\(\(unknown file\):-1\)' : '\(foo.p6:128\)';
 # See "RT #43269 and .annotate