Browse files

[for.t] fix and unfudge test that was failing due to range bug

  • Loading branch information...
1 parent 4c37943 commit 1888ab6fa307cfe9afeb0679ae4e84404397cbdb @felliott felliott committed Jan 22, 2011
Showing with 3 additions and 9 deletions.
  1. +3 −9 S04-statements/for.t
View
12 S04-statements/for.t
@@ -54,16 +54,10 @@ plan 65;
}
# ... with referential sub
-#?rakudo skip 'class accessing outer lexical'
{
- my $d = '';
- augment class Int {
- method some_meth_1 {
- $d = $d ~ self
- }
- };
- for 0 .. 5 { .some_meth_1 };
- is($d, '012345', 'for 0 .. 5 { .some_sub } works');
+ my $d = "";
+ for -2 .. 2 { $d ~= .sign };
+ is($d, '-1-1011', 'for 0 .. 5 { .some_sub } works');
}
## and now with parens around the range operator

0 comments on commit 1888ab6

Please sign in to comment.