Skip to content

Commit

Permalink
Activate Supply.squish tests without :with
Browse files Browse the repository at this point in the history
  • Loading branch information
lizmat committed Apr 19, 2014
1 parent a902f51 commit 2964de5
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions S17-concurrency/supply.t
@@ -1,7 +1,7 @@
use v6;
use Test;

plan 90;
plan 108;

sub tap_ok ( $s, $expected, $text ) {
ok $s ~~ Supply, "{$s.^name} appears to be doing Supply";
Expand Down Expand Up @@ -101,17 +101,17 @@ for (ThreadPoolScheduler, CurrentThreadScheduler) {
'a B cc',
"uniq with as and with tap works";

# tap_ok Supply.for(1..10,1..10).squish,
# '1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 10',
# "squish tap with 2 ranges works";
tap_ok Supply.for(1..10,1..10).squish,
'1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 10',
"squish tap with 2 ranges works";

# tap_ok Supply.for(1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10).squish,
# '1 2 3 4 5 6 7 8 9 10',
# "squish tap with doubling range works";
tap_ok Supply.for(1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10).squish,
'1 2 3 4 5 6 7 8 9 10',
"squish tap with doubling range works";

# tap_ok Supply.for(1..10).squish(:as(* div 2)),
# '1 2 4 6 8 10',
# "squish with as tap works";
tap_ok Supply.for(1..10).squish(:as(* div 2)),
'1 2 4 6 8 10',
"squish with as tap works";

tap_ok Supply.for(<a A B b c C A>).squish( :with( {$^a.lc eq $^b.lc} ) ),
'a B c A',
Expand Down

0 comments on commit 2964de5

Please sign in to comment.