Start winner.t by taking winner test from supply.t

Author: lizmat

S17-concurrency/supply.t

@@ -60,19 +60,6 @@ plan 17;
     is ~@a2, "1 2 3 4 5 6 7 8 9 10 end", "Second tap also gets all values";
 }
 
-{
-    my $p = Publish.for(1..5);
-    my $c = $p.Channel;
-    my @a;
-    loop {
-        winner(
-            $c        => { @a.push($^val) },
-            $c.closed => { @a.push("done"); last }
-        );
-    }
-    is ~@a, "1 2 3 4 5 done", "Publish.for and .Channel work";
-}
-
 {
     my $p = Publish.for(2..6);
     my @a;

S17-concurrency/winner.t

@@ -0,0 +1,17 @@
+use v6;
+use Test;
+
+plan 1;
+
+{
+    my $p = Publish.for(1..5);
+    my $c = $p.Channel;
+    my @a;
+    loop {
+        winner(
+            $c      => { say "pushing"; @a.push($^val) },
+            default => { say "done"; @a.push("done"); last }
+        );
+    }
+    is ~@a, "1 2 3 4 5 done", "Publish.for and .Channel work";
+}