RT #123674: Test that sub-supplies from categorize get .done

Raku · Jan 26, 2015 · 0821592 · 0821592
1 parent 8c487c0
commit 0821592
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S17-supply/categorize.t b/S17-supply/categorize.t
@@ -59,7 +59,11 @@ for ThreadPoolScheduler.new, CurrentThreadScheduler -> $*SCHEDULER {
             $s.emit($_) for 1,2,3,11,12,13;
             is_deeply @keys, [0,1], "did we get the right keys ($what)";
             tap_ok @supplies[0], [11,12,13], "got the 0 supply ($what)", :live;
-            tap_ok @supplies[1], [11,12,13], "got the 1 supply ($what)", :live;
+
+            my $done = False;
+            @supplies[1].tap({;}, done => sub { $done = True });
+            $s.done;
+            ok $done, 'Sub-supply got .done (RT 123674)';
         }
     }
 }