Changeset 21200

Timestamp:

07/03/08 23:00:28 (5 months ago)

Author:

moritz

Message:

[spec] fudged repeat.t

Files:

• t/spec/S04-statements/repeat.t (modified) (4 diffs)

t/spec/S04-statements/repeat.t

@@ -36 +36 @@
 }
 
+#?rakudo skip 'redo'
 {
   my $x = 0; try { repeat { $x++; redo if $x < 10 } until 1 };
@@ -75 +76 @@
 }
 
+#?rakudo skip 'redo'
 {
   my $x = 0; try { repeat while 0 { $x++; redo if $x < 10 } };
@@ -86 +88 @@
 
 # L<S04/The C<repeat> statement/"bind the result">
+#?rakudo skip 'point block on loop'
 {
   my $x = 0; repeat until $x >= 10 -> $another_x {
@@ -99 +102 @@
 }
 
+#?rakudo todo 'redo'
 {
   my $x = 0; try { repeat until 1 { $x++; redo if $x < 10 } };