Add test for Supply.flat

Raku · Apr 19, 2014 · 071ebd3 · 071ebd3
1 parent 729b330
commit 071ebd3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S17-concurrency/supply.t b/S17-concurrency/supply.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 134;
+plan 140;
 
 sub tap_ok ( $s, $expected, $text ) {
     ok $s ~~ Supply, "{$s.^name} appears to be doing Supply";
@@ -72,6 +72,9 @@ for (ThreadPoolScheduler, CurrentThreadScheduler) {
         is $seen, 10, "did the side effect work";
     }
 
+    tap_ok Supply.for( [1,2],[3,4,5] ).flat,
+      [1..5], "On demand publish with flat";
+
     tap_ok Supply.for( (1..5).map( {[$_]} ) ),
       [[1],[2],[3],[4],[5]], "On demand publish with arrays";