From 20de0d4773f5eb47c6866083d2b6b7173108c46d Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@wenzperl.nl>
Date: Wed, 29 Aug 2018 10:46:43 +0100
Subject: [PATCH] Make sure Supplier.emit takes Mu

---
 S17-supply/basic.t | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/S17-supply/basic.t b/S17-supply/basic.t
index bf009ef931..6f388201e4 100644
--- a/S17-supply/basic.t
+++ b/S17-supply/basic.t
@@ -4,17 +4,24 @@ use lib $?FILE.IO.parent(2).add("packages");
 use Test;
 use Test::Util;
 
-plan 78;
+plan 80;
 
 for ThreadPoolScheduler.new, CurrentThreadScheduler -> $*SCHEDULER {
     diag "**** scheduling with {$*SCHEDULER.WHAT.perl}";
 
+    {
+        my $s = Supplier.new;
+        $s.Supply.tap( -> \val { ok val =:= Mu } );
+        $s.emit(Mu);
+        $s.done;
+    }
+
     {
         my $s = Supplier.new;
 
         my @vals;
         my $saw_done;
-        my $tap = $s.Supply.tap( -> $val { @vals.push($val) },
+        $s.Supply.tap( -> $val { @vals.push($val) },
           done => { $saw_done = True });
 
         $s.emit(1);