rakudo autounfudge

Author: coke

S02-lexical-conventions/comments.t

@@ -76,7 +76,7 @@ use Test;
     >>> 1, '#`<<<...>>>';
 }
 
-#?rakudo skip 'nom regression'
+#?rakudo todo 'nom regression'
 {
     eval_lives_ok( q{{
         my $var = \#`((( comment ))) 12;

S02-literals/misc-interpolation.t

@@ -72,7 +72,6 @@ is(qq{a{chr 98}c}, 'a{chr 98}c', "curly brace delimiters interfere with closure
 is(Q"abc\\d\\'\/", Q"abc\\d\\'\/", "raw quotation works");
 is(q"abc\\d\"\'\/", Q|abc\d"\'\/|, "single quotation works"); #"
 is(qq"abc\\d\"\'\/", Q|abc\d"'/|, "double quotation works"); #"
-#?rakudo 3 skip 'qa qb and array/hash interpolation'
 #?pugs skip 'parsefail'
 is(qa"$world @list[] %hash{}", Q"$world 1 2 %hash{}", "only interpolate array");
 is(qb"$world \\\"\n\t", "\$world \\\"\n\t", "only interpolate backslash");

S02-literals/quoting.t

@@ -428,7 +428,6 @@ Hello, World
 }
 # utf8
 
-#?rakudo skip 'q:x'
 {
     # 一 means "One" in Chinese.
     is q:x/echo 一/, "一\n", "Testing for q:x operator. (utf8)";

S02-types/array.t

@@ -253,7 +253,7 @@ my @array2 = ("test", 1, Mu);
                                    "through a variable is run-time error";
   #?pugs todo
   dies_ok { @arr[$minus_one] = 42 }, "assigning to [-1] of a normal array is fatal";
-  #?rakudo skip "binding not yet fatal"
+  #?rakudo todo "binding not yet fatal"
   #?pugs todo
   dies_ok { @arr[$minus_one] := 42 }, "binding [-1] of a normal array is fatal";
 }

S03-metaops/reduce.t

@@ -319,7 +319,7 @@ is( ([min] Any, Any, 2), 2, '[min] Any, Any, 2 returns 2');
     }
 }
 
-#?rakudo skip 'triangle [\^^] and [\xor]'
+#?rakudo todo 'triangle [\^^] and [\xor]'
 #?niecza skip '^^'
 {
     is (join ', ', [\^^] False, 0, 5, '', False, 16,    0,     Any,   "hello", False),
@@ -332,7 +332,7 @@ is( ([min] Any, Any, 2), 2, '[min] Any, Any, 2 returns 2');
 
 # RT 57976 implement orelse
 #?niecza skip 'huh?  these are macros'
-#?rakudo skip 'orelse'
+#?rakudo todo 'orelse'
 {
 
     is (join ', ', [\//] Any,    0, 1),

S04-blocks-and-statements/pointy.t

@@ -55,7 +55,7 @@ my $str = '';
 
 sub outer {  
     my $s = -> { 
-        #?rakudo skip '&?ROUTINE'
+        #?rakudo todo '&?ROUTINE'
         #?niecza todo 'Unable to resolve method name in class Sub'
         is(&?ROUTINE.name, '&Main::outer', 'pointy still sees outer\'s &?ROUTINE'); 
 

S04-declarations/constant.t

@@ -84,7 +84,7 @@ use Test;
     dies_ok { ConstantTest3::yak }, 'constant can be explicitly "my"-scoped';
 }
 
-#?rakudo skip 'COMPILING'
+#?rakudo todo 'COMPILING'
 #?niecza skip 'Cannot use COMPILING outside BEGIN scope'
 {
     my $ok;
@@ -106,7 +106,7 @@ use Test;
     ok $ok, "declaring a constant in terms of hash constant works";
 }
 
-#?rakudo skip 'COMPILING'
+#?rakudo todo 'COMPILING'
 #?niecza skip 'Cannot use COMPILING outside BEGIN scope'
 {
     my $ok;
@@ -128,7 +128,7 @@ use Test;
     ok $ok, "declaring a constant in terms of array constant works";
 }
 
-#?rakudo skip 'COMPILING'
+#?rakudo todo 'COMPILING'
 #?niecza skip 'Cannot use COMPILING outside BEGIN scope'
 {
     my $ok;

S04-declarations/state.t

@@ -116,7 +116,7 @@ plan 42;
 
 # state will start {...}
 #?pugs eval "parse error"
-#?rakudo skip 'will start { ... }'
+#?rakudo todo 'will start { ... }'
 #?DOES 1
 {
     my ($a, $b);
@@ -152,7 +152,7 @@ plan 42;
 # L<http://groups.google.de/group/perl.perl6.language/msg/07aefb88f5fc8429>
 # fudged a bit on syntax
 #?pugs todo 'anonymous state vars'
-#?rakudo skip 'references and anonymous state vars'
+#?rakudo todo 'references and anonymous state vars'
 #?DOES 1
 {
     my $gen = sub { \(state $ ) };
@@ -184,7 +184,7 @@ eval_lives_ok 'if 0 { \(state $) }', '$) not misinterpreted in capterm';
 }
 
 # state() inside regular expressions
-#?rakudo skip 'embedded closures in regexen'
+#?rakudo todo 'embedded closures in regexen'
 #?niecza skip ':Perl5'
 #?DOES 1
 {

S04-statements/terminator.t

@@ -21,7 +21,6 @@ eval_lives_ok(';my $x = 2;{my $x = 2;;};', 'extra terminators');
 eval_dies_ok('{my $x = 2;', 'open closure');
 eval_dies_ok('my $x = ', 'incomplete expression');
 
-#?rakudo skip 'parsing do { ... } + 1'
 {
     my $x = do {
         10
@@ -34,6 +33,7 @@ eval_dies_ok('my $x = ', 'incomplete expression');
     }
     + 1;
 
+    #?rakudo todo "??"
     is($y, 10, "}\\n + 1 are two statements");
 
     my $z = [];