Permalink
Browse files

[t/spec] re-fudge do.t for rakudo

git-svn-id: http://svn.pugscode.org/pugs@30049 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent b08bf67 commit f11daa54c50373ec40a363cb50b03417b9271c99 moritz committed Mar 12, 2010
Showing with 3 additions and 2 deletions.
  1. +3 −2 S04-statements/do.t
View
@@ -5,7 +5,7 @@ use Test;
plan 24;
# L<S04/The do-once loop/"can't" put "statement modifier">
-#?rakudo 6 todo 'do {} while/until/if is valid but should not be'
+#?rakudo 5 todo 'do {} while/until/if is valid but should not be'
eval_dies_ok 'my $i = 1; do { $i++ } while $i < 5;',
"'do' can't take the 'while' modifier";
@@ -142,6 +142,7 @@ eval_dies_ok 'my $i; do { $i++ } given $i;',
is $a, 3, "final `}' on a line reverted to `;'";
}
-lives_ok { my $a = do given 5 {} }, 'empty do block lives (RT #61034)';
+#?rakudo todo 'regression on RT 61034'
+lives_ok { my $a = do given 5 {} }, 'empty do block lives (RT 61034)';
# vim: ft=perl6

0 comments on commit f11daa5

Please sign in to comment.