[svn:parrot] r41889 - trunk/t/compilers/imcc/syn

[mikehh at svn.parrot.org]

Author: mikehh
Date: Fri Oct 16 17:49:56 2009
New Revision: 41889
URL: https://trac.parrot.org/parrot/changeset/41889

Log:
revert r41886 and mark failing tests in testS for macro line numbering as TODO

Modified:
   trunk/t/compilers/imcc/syn/macro.t
   trunk/t/compilers/imcc/syn/regressions.t

Modified: trunk/t/compilers/imcc/syn/macro.t
==============================================================================
--- trunk/t/compilers/imcc/syn/macro.t	Fri Oct 16 14:12:24 2009	(r41888)
+++ trunk/t/compilers/imcc/syn/macro.t	Fri Oct 16 17:49:56 2009	(r41889)
@@ -25,6 +25,11 @@
 42
 OUTPUT
 
+
+TODO: {
+    local $TODO = q|fails on switch runcore - TT #1102|
+        if $ENV{TEST_PROG_ARGS} =~ /--runcore=switch/;
+
 pir_error_output_like( <<'CODE', <<'OUTPUT', 'macro, zero parameters, line number' );
 .sub test :main
 .macro answer()
@@ -35,9 +40,16 @@
     end
 .end
 CODE
-/(?s:Null PMC access .*current instr.*:(4|-1|2)\))/
+/(?s:Null PMC access .*current instr.*:(4|-1)\))/
 OUTPUT
 
+}
+
+
+TODO: {
+    local $TODO = q|fails on switch runcore - TT #1102|
+        if $ENV{TEST_PROG_ARGS} =~ /--runcore=switch/;
+
 pir_error_output_like( <<'CODE', <<'OUTPUT', 'macro, zero parameters, line number' );
 .sub test :main
 .macro answer()
@@ -47,9 +59,16 @@
     end
 .end
 CODE
-/(?s:Null PMC access .*current instr.*:(5|-1|3)\))/
+/(?s:Null PMC access .*current instr.*:(5|-1)\))/
 OUTPUT
 
+}
+
+
+TODO: {
+    local $TODO = q|fails on switch runcore - TT #1102|
+        if $ENV{TEST_PROG_ARGS} =~ /--runcore=switch/;
+
 pir_error_output_like( <<'CODE', <<'OUTPUT', 'macro, zero parameters, line number' );
 .sub test :main
 .macro answer()
@@ -60,9 +79,11 @@
     end
 .end
 CODE
-/(?s:Null PMC access .*current instr.*:(6|-1|2)\))/
+/(?s:Null PMC access .*current instr.*:(6|-1)\))/
 OUTPUT
 
+}
+
 pir_output_is( <<'CODE', <<'OUTPUT', 'macro, one unused parameter, literal term' );
 .sub test :main
 .macro answer(A)

Modified: trunk/t/compilers/imcc/syn/regressions.t
==============================================================================
--- trunk/t/compilers/imcc/syn/regressions.t	Fri Oct 16 14:12:24 2009	(r41888)
+++ trunk/t/compilers/imcc/syn/regressions.t	Fri Oct 16 17:49:56 2009	(r41889)
@@ -93,6 +93,11 @@
 hello
 OUT
 
+
+TODO: {
+    local $TODO = q|fails on switch runcore - TT #1102|
+        if $ENV{TEST_PROG_ARGS} =~ /--runcore=switch/;
+
 pir_error_output_like( <<'CODE', <<'OUT', 'off by one error message (TT #1016)', );
 .sub foo :main
   $P0 = new 'Hash'
@@ -102,9 +107,11 @@
 no:
 .end
 CODE
-/(?s:Null PMC access in get_bool.*current instr.*:(4|-1|3)\))/
+/(?s:Null PMC access in get_bool.*current instr.*:(4|-1)\))/
 OUT
 
+}
+
 pir_error_output_like( <<'CODE', <<'OUT', 'bare method names not allowed (RT #45859)');
 .sub foo :main
   $P0 = new 'String'