rakudo (auto) (un)fudge

Author: coke

S02-lexical-conventions/unspace.t

@@ -264,7 +264,7 @@ eval_dies_ok('sub f { 3 } sub g { 3 }', 'semicolon or newline required between b
     $n = 1;
     #?rakudo skip 'dotty postfix'
     is($n.++, 1, 'postfix dot');
-    #?rakudo skip 'test dependency'
+    #?rakudo todo 'test dependency'
     is($n, 2, 'check $n');
 
     $n = 1;
@@ -274,7 +274,7 @@ eval_dies_ok('sub f { 3 } sub g { 3 }', 'semicolon or newline required between b
     $n = 1;
     #?rakudo skip 'unspace + dotty postfix'
     is($n\ .++, 1, 'postfix unspace');
-    #?rakudo skip 'test dependency'
+    #?rakudo todo 'test dependency'
     is($n, 2, 'check $n');
 
     # L<S02/"Bracketing Characters"/"U+301D codepoint has two closing alternatives">

S02-literals/listquote.t

@@ -70,13 +70,13 @@ eval_dies_ok '<STDIN>', '<STDIN> is disallowed';
     dies_ok {$c.push: 'd'}, '... which is immutable';
 }
 
-#?rakudo skip 'magic type of <...> contents'
 {
     # L<S02/Forcing item context/For any item in the list that appears to be numeric>
     my @a = <foo 3 4.5 5.60 1.2e1>;
     is ~@a, 'foo 3 4.5 5.60 1.2e1',
        '<...> numeric literals stringify correctly';
     isa_ok @a[0], Str, '<foo ...> is a Str';
+    #?rakudo 3 todo 'magic type of <...> contents'
     isa_ok @a[1], Int, '< ... 3 ...> is an Int';
     isa_ok @a[2], Rat, '< ... 4.5 ...> is a Rat';
     isa_ok @a[4], Num, '< ... 1.2e1 ...> is a Num';

S02-literals/pairs.t

@@ -112,7 +112,7 @@ sub f5 ($a) { WHAT($a) }
 
     isa_ok f5(@array_of_pairs), Array,
         'an array of pairs is not treated magically...';
-    #?rakudo skip 'prefix:<|>'
+    #?rakudo todo 'prefix:<|>'
     #?niecza todo
     isa_ok f5(|@array_of_pairs), Array, '...and |@array isn\'t either';
 }
@@ -124,7 +124,7 @@ sub f6 ($a) { WHAT($a) }
 
     ok (f6(%hash_of_pairs)).does(Hash), 'a hash is not treated magically...';
     #?pugs todo '[,]'
-    #?rakudo skip 'reduce meta op'
+    #?rakudo todo 'reduce meta op'
     #?niecza todo
     isa_ok f6([,] %hash_of_pairs), Str,  '...but [,] %hash is';
 }

S02-literals/quoting.t

@@ -170,7 +170,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 
 # quote with \0 as delimiters, forbidden by STD
 # but see L<news:20050101220112.GF25432@plum.flirble.org>
-#?rakudo skip 'retriage'
+#?rakudo todo 'retriage'
 #?pugs todo
 {
     eval_dies_ok "(q\0foo bar\0)";

S02-literals/radix.t

@@ -140,7 +140,7 @@ is(:8<200000>, 65536, 'got the correct int value from oct 200000');
 # setting the default radix
 
 #?pugs todo 'feature'
-#?rakudo skip "Some question of what this form should actually do"
+#?rakudo todo "Some question of what this form should actually do"
 #?niecza todo ":radix() NYI"
 {
     is(:8('0b1110'),  0o14, ':8(0b1110) converts from decimal');

S02-magicals/sub.t

@@ -25,7 +25,7 @@ sub postfix:<!!!> (Int $n) { $n < 2 ?? 1 !! $n * &?ROUTINE($n - 1) }
 my $result3 = 3!!!;
 is($result3, 6, 'the &?ROUTINE magical works correctly in overloaded operators' );
 
-#?rakudo skip 'is this spec?'
+#?rakudo todo 'is this spec?'
 {
     my $baz = try { &?ROUTINE };
     ok(defined($baz), '&?ROUTINE is defined for the MAIN routine');

S02-names-vars/list_array_perl.t

@@ -77,7 +77,7 @@ my @tests = (
 
     my @list = (1, 2);
     push @list, eval (3, 4).perl;
-    #?rakudo skip "List.perl bug"
+    #?rakudo todo "List.perl bug"
     #?niecza todo
     is +@list, 3, 'eval(@list.perl) gives a list, not an array ref';
 }

S02-names/pseudo.t

@@ -169,17 +169,17 @@ plan 140;
     is OUR::A41.WHO.<$x>, 42, '$OUR:: can autovivify packages (binding)';
     #?rakudo emit #
     $::($our)::A42::x = 43;
-    #?rakudo skip 'interpolation and auto-viv NYI'
+    #?rakudo todo 'interpolation and auto-viv NYI'
     is ::($our)::A42.WHO.<$x>, 43, '::("OUR") can autovivify packages (r)';
 
     #?rakudo emit #
     $::($our)::A43::x := 44;
-    #?rakudo skip 'binding and interpolation together NYI'
+    #?rakudo todo 'binding and interpolation together NYI'
     is ::($our)::A43.WHO.<$x>, 44, '::("OUR") can autovivify packages (b)';
 
     #?rakudo emit #
     ::($our)::A44 := class { our $x = 41; };
-    #?rakudo skip 'binding and interpolation together NYI'
+    #?rakudo todo 'binding and interpolation together NYI'
     is $::($our)::A44::x, 41, '::("OUR") can follow aliased packages';
 }
 

S02-names/symbolic-deref.t

@@ -152,12 +152,12 @@ my $outer = 'outside';
 # Symbolic dereferentiation syntax should work with $?SPECIAL etc. too.
 # Note: I'm not 100% sure this is legal syntax. If it turns out it isn't, we'll
 # have to s/ok/dies_ok/.
-#?rakudo skip 'NYI'
 {
   try { die 'to set $!' };
   ok $::("!"),    "symbolic dereferentiation works with special chars (1)";
 #  ok $::!,        "symbolic dereferentiation works with special chars (2)";
   #?pugs skip 'todo'
+  #?rakudo todo 'NYI'
   ok ::("%*ENV"), "symbolic dereferentiation works with special chars (3)";
 #  ok %::*ENV,     "symbolic dereferentiation works with special chars (4)";
 }

S02-types/autovivification.t

@@ -38,15 +38,15 @@ plan 10;
     nok defined($b), '... to an undefined value';
 }
 
-#?rakudo skip 'prefix:<\\>'
+#?rakudo todo 'prefix:<\\>'
 #?niecza todo 'disagree; captures should be context neutral'
 {
     my %a;
     my $b = \%a<b><c>;
     is %a.keys.elems, 1, 'capturing autovivifies.';
 }
 
-#?rakudo skip 'get_pmc_keyed() not implemented in class Undef'
+#?rakudo todo 'get_pmc_keyed() not implemented in class Undef'
 {
     my %a;
     foo(%a<b><c>);