rakudo unfudges

S02-literals/sub-calls.t

@@ -33,7 +33,6 @@ plan 20;
     ok eval(q/foo 1, 2; /), 'call with two args, no parens';
     ok eval(q/foo(1, 2);/), 'call with two args, has parens';
 
-    #?rakudo skip 'should parse as a routine foo:bar'
     #?niecza skip 'Undeclared routine "foo:bar"'
     ok eval(q/foo:bar;  /), 'call with adverb after no space';
     ok eval(q/foo :bar; /), 'call with adverb after space';

S02-magicals/dollar_bang.t

@@ -58,7 +58,6 @@ ok ~($!) ~~ /qwerty/, 'die without argument uses $! properly';
     # - also tested more generically above.
     # So no need to test the value of #! again here.
     #is $!, 'goodbye', '$! has correct value after try';
-    #?rakudo skip 'spec change pending (?)'
     ok ($!), '$! as boolean works (true)';
 
     try { eval q[ die('farewell'); ] };

S02-names/our.t

@@ -31,7 +31,6 @@ plan 10;
     our $rt69460 = 1;
     eval_lives_ok 'class RT69460 { $GLOBAL::rt69460++ }',
                   'can compile a class that modifies our variable';
-    #?rakudo skip 'RT 69460'
     ok ::OUR::RT69460.new ~~ ::OUR::RT69460, 'can instantiate class that modifies our variable';
     #?pugs todo
     is $rt69460, 2, 'class can modify our variable';

S04-declarations/constant.t

@@ -171,7 +171,6 @@ use Test;
     $ok++ if $!;
     $ok++ if grtz == 42;
 
-    #?rakudo todo 'unknown'
     is $ok, 3, "a constant declared using 'constant' is actually constant (1)";
 }
 
@@ -201,7 +200,6 @@ use Test;
     $ok++ if $!;
     $ok++ if wobble == 42;
 
-    #?rakudo todo 'unknown'
     is $ok, 3, "a constant declared using 'constant' is actually constant (3)";
 }
 

S16-filehandles/mkdir_rmdir.t

@@ -9,7 +9,7 @@ if $*OS eq "browser" {
 
 my $root = "mkdir-t-testfile-" ~ 1000000.rand.floor;
 
-say $root;
+diag $root;
 
 nok $root.IO ~~ :e, "$root does not currently exist";
 
@@ -21,7 +21,6 @@ ok mkdir("$root/green"), "mkdir $root/green returns true";
 ok "$root/green".IO ~~ :e, "$root/green now exists";
 ok "$root/green".IO ~~ :d, "... and is a directory";
 
-#?rakudo todo 'rmdir return value'
 nok rmdir($root), "Get false when we try to rmdir a directory with something in it";
 ok $root.IO ~~ :e, "$root still exists";
 

S32-io/chdir.t

@@ -43,7 +43,6 @@ if $no_subdir.IO ~~ :d {
 else {
     lives_ok { chdir("$no_subdir") },
              'chdir to a non-existent does not by default throw an exception';
-    #?rakudo todo 'nom regression'
     ok !chdir("$no_subdir"),
        'change to non-existent directory gives a false value';
 }

S32-list/uniq.t

@@ -57,7 +57,6 @@ is uniq('a', 'b', 'b', 'c', 'd', 'e', 'b', 'b', 'b', 'b', 'f', 'b'),
     my $range = [1..4];
     my @array = $range, $range.WHICH;
     is @array.elems, 2, ".uniq does not use naive WHICH (1)";
-    #?rakudo todo "awaiting better .uniq implementation"
     is @array.uniq.elems, 2, ".uniq does not use naive WHICH (2)";
 }