Browse files

[rakudo] while/until statements now parse

git-svn-id: http://svn.pugscode.org/pugs@19711 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 94688ba commit 983f107fea62df1e605cb4eb90711cb327394e36 particle committed Jan 27, 2008
Showing with 23 additions and 28 deletions.
  1. +0 −4 S04-statements/until.t
  2. +23 −24 S04-statements/while.t
View
4 S04-statements/until.t
@@ -5,29 +5,25 @@ plan 4;
# L<S04/The C<while> and C<until> statements/while statements
# work as in 5>
-#?rakudo skip "can't parse"
{
my $i = 0;
until $i >= 5 { $i++; };
is($i, 5, 'until $i >= 5 {} works');
}
-#?rakudo skip "can't parse"
{
my $i = 0;
until 5 <= $i { $i++; };
is($i, 5, 'until 5 <= $i {} works');
}
# with parens
-#?rakudo skip "can't parse"
{
my $i = 0;
until ($i >= 5) { $i++; };
is($i, 5, 'until ($i >= 5) {} works');
}
-#?rakudo skip "can't parse"
{
my $i = 0;
until (5 <= $i) { $i++; };
View
47 S04-statements/while.t
@@ -4,46 +4,45 @@ use Test;
plan 10;
-#?rakudo skip "can't parse"
{
- my $i = 0;
- while $i < 5 { $i++; };
- is($i, 5, 'while $i < 5 {} works');
+ my $i = 0;
+ while $i < 5 { $i++; };
+ is($i, 5, 'while $i < 5 {} works');
}
-#?rakudo skip "can't parse"
+
{
- my $i = 0;
- while 5 > $i { $i++; };
- is($i, 5, 'while 5 > $i {} works');
+ my $i = 0;
+ while 5 > $i { $i++; };
+ is($i, 5, 'while 5 > $i {} works');
}
+
# with parens
-#?rakudo skip "can't parse"
{
- my $i = 0;
- while ($i < 5) { $i++; };
- is($i, 5, 'while ($i < 5) {} works');
+ my $i = 0;
+ while ($i < 5) { $i++; };
+ is($i, 5, 'while ($i < 5) {} works');
}
-#?rakudo skip "can't parse"
+
{
- my $i = 0;
- while (5 > $i) { $i++; };
- is($i, 5, 'while (5 > $i) {} works');
+ my $i = 0;
+ while (5 > $i) { $i++; };
+ is($i, 5, 'while (5 > $i) {} works');
}
# single value
-#?rakudo skip "can't parse"
{
- my $j = 0;
- while 0 { $j++; };
- is($j, 0, 'while 0 {...} works');
+ my $j = 0;
+ while 0 { $j++; };
+ is($j, 0, 'while 0 {...} works');
}
-#?rakudo skip "can't parse"
+
{
- my $k = 0;
- while $k { $k++; };
- is($k, 0, 'while $var {...} works');
+ my $k = 0;
+ while $k { $k++; };
+ is($k, 0, 'while $var {...} works');
}
+
#?rakudo skip 'No pointy blocks on while loops yet'
# L<S04/The C<for> statement/It is also possible to write>
# while ... -> $x {...}

0 comments on commit 983f107

Please sign in to comment.