Skip to content

Commit

Permalink
Unskip passing tests for RT #123329
Browse files Browse the repository at this point in the history
  • Loading branch information
usev6 committed Dec 11, 2014
1 parent e3b109e commit 1bcc540
Showing 1 changed file with 3 additions and 11 deletions.
14 changes: 3 additions & 11 deletions S03-sequence/misc.t
Expand Up @@ -74,36 +74,28 @@ is (1, 4, 7 ... 16, 16 ... *)[^8].join(' '),
# 'chained arithmetic sequence with exclusion';

#?niecza skip 'Cannot use value like Block as a number'
#?rakudo skip 'RT #123329'
is (1, *+1 ... { $_ >= 4 }, 5, *+10 ... { $_ >= 24 }, 35, *+100 ... { $_ > 400 }).join(' '),
'1 2 3 4 5 15 25 35 135 235 335 435',
'chained sequence with closures (1)';
#?niecza skip 'Unable to resolve method chars in class Block'
#?rakudo skip 'RT #123329'
is (1, { $^n*2 + 1 } ... 31, *+5 ... { $^n**2 > 2000 }, 'a', *~'z' ... { $_.chars >= 5 }).join(' '),
'1 3 7 15 31 36 41 46 a az azz azzz azzzz',
'chained sequence with closures (2)';

#RT #123329
#?rakudo skip 'RT #123329'
{
is (1, 2 ... { $_ > 3 }, 6 ... 10).join(' '),
'1 2 3 4 6 8 10',
'chained sequence with closure (3)';
is (1, *+1 ... { $_ == 9 }, 10, *+10 ... { $_ == 90 }, 100, *+100 ... { $_ == 900 }).join(' '),
'1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80 90 100 200 300 400 500 600 700 800 900',
'cained sequence with limit function';
is (1, 2 ... 4, 6 ... 10, 12).join(' '),
'1 2 3 4 6 8 10 12',
'chained sequence with more than one value after last infix:<...>';
}

#RT #123329
#?rakudo skip 'RT #123329'
{
is (1, 2 ... * > 3, 6 ... 10).join(' '),
'1 2 3 4 6 8 10',
'chained sequence with whatever expression';
is (1, 2 ... { $_ > 3 }, 6 ... 10).join(' '),
'1 2 3 4 6 8 10',
'chained sequence with closure (3)';
}

# The following is now an infinite sequence...
Expand Down

0 comments on commit 1bcc540

Please sign in to comment.