fix a test, rakudo unfudges

Raku · Nov 24, 2011 · aed8452 · aed8452
1 parent a4ed986
commit aed8452
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/S04-blocks-and-statements/pointy.t b/S04-blocks-and-statements/pointy.t
@@ -44,9 +44,7 @@ my $s = -> {
     $n++;
     redo if $n < 10;
 };
-try { $s.() };
-#?pugs todo 'feature'
-ok(!defined($!), 'pointy with block control exceptions');
+dies_ok $s, 'pointy with block control exceptions';
 #?rakudo todo 'pointy blocks and last/redo'
 is $n, 10, "pointy control exceptions ran";
 

diff --git a/S04-statements/do.t b/S04-statements/do.t
@@ -132,7 +132,6 @@ is eval('my $i; A: do { $i++; redo A until $i == 5; $i-- }; $i'), 4,
 }
 
 # L<S04/The do-once loop/"bare block is not a do-once">
-#?rakudo todo 'next/last/redo handling without handlers'
 {
     eval_dies_ok 'my $i; { $i++; next; $i--; }',
         "bare block can't take 'next'";