rakudo unfudges

Raku · Aug 3, 2011 · 37d802d · 37d802d
1 parent fdbe891
commit 37d802d
Show file tree

Hide file tree

Showing 6 changed files with 0 additions and 11 deletions.
diff --git a/S02-builtin_data_types/capture.t b/S02-builtin_data_types/capture.t
@@ -37,12 +37,10 @@ plan 18;
 
     # L<S03/Argument List Interpolating/explicitly flatten it in one of>
     sub foo4 ($a, $pair) { "$a!$pair" }
-    #?rakudo skip 'should this pair not become positional?'
     is foo4(|$capture), "1!positional\tpair",
         'simply capture creation with \\( works (4)';
 }
 
-#?rakudo skip 'nom regression'
 {
     my @array   = <a b c>;
     my $capture = \(@array);

diff --git a/S02-literals/quoting.t b/S02-literals/quoting.t
@@ -561,7 +561,6 @@ Hello, World
     isa_ok rx:ignorecase{foo}, Regex, 'rx:i{...}';
     isa_ok rx:s{foo}, Regex, 'rx:i{...}';
     isa_ok rx:sigspace{foo}, Regex, 'rx:i{...}';
-    #?rakudo 2 todo 'unknown adverbs'
     eval_dies_ok 'rx:unknown{foo}', 'rx:unknown dies';
     eval_dies_ok 'rx:g{foo}', 'g does not make sense on rx//';
 }

diff --git a/S02-names/our.t b/S02-names/our.t
@@ -15,11 +15,9 @@ plan 10;
 # RT #63882
 {
     my enum A <a b c>;
-    #?rakudo todo 'nom regression'
     is +c, 2, 'c is 2 from enum';
     eval_lives_ok 'our sub c { "sub c" }',
         'can define my sub c in eval after c defined in enum';
-    #?rakudo todo 'nom regression'
     is +c, 2, 'c is still 2 from enum';
     #?rakudo skip 'OUR::subname() does not work'
     is OUR::c(), 'sub c', 'sub c called with OUR:: works';
@@ -28,7 +26,6 @@ plan 10;
 # RT #69460
 {
     our $rt69460 = 1;
-    #?rakudo todo 'RT 69460'
     eval_lives_ok 'class RT69460 { $GLOBAL::rt69460++ }',
                   'can compile a class that modifies our variable';
     #?rakudo skip 'RT 69460'

diff --git a/S02-whitespace_and_comments/unspace.t b/S02-whitespace_and_comments/unspace.t
@@ -82,7 +82,6 @@ is((foo\
 blah blah blah
 =end comment
     .lc), 'a', 'unspace with pod =begin/=end comment');
-#?rakudo skip '=for pod not implemented (in STD.pm)'
 {
 is((foo\
 =for comment

diff --git a/S03-operators/assign.t b/S03-operators/assign.t
@@ -691,7 +691,6 @@ sub l () { 1, 2 };
     is(@z[2], 1,    q/lhs treats %a{'x','y','z'} as list/);
 }
 
-#?rakudo skip 'segfault'
 {
     my %a;
     my @z = (%a{'x'..'z'} = l, l);
@@ -772,7 +771,6 @@ sub l () { 1, 2 };
 }
 
 # RT #63642
-#?rakudo skip 'no applicable methods (,=)'
 {
     my %part1 = a => 'b';
     my %part2 = d => 'c';
@@ -884,7 +882,6 @@ sub l () { 1, 2 };
 }
 
 # RT 93972
-#?rakudo skip 'RT 93972'
 {
     my $rt93972 = 1, 2, 3;
     $rt93972 = $rt93972.grep({1});

diff --git a/S04-statements/repeat.t b/S04-statements/repeat.t
@@ -84,7 +84,6 @@ plan 16;
 }
 
 # L<S04/The C<repeat> statement/"bind the result">
-#?rakudo skip 'point block on loop'
 {
   my $x = 0; repeat until $x >= 10 -> $another_x {
       pass('repeat until with binding starts undefined') unless $another_x.defined;