Type-based test for Channel.fail/receive exception throwing

Raku · Dec 21, 2014 · 0ab7746 · 0ab7746
1 parent a0bfc72
commit 0ab7746
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S17-channel/basic.t b/S17-channel/basic.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 14;
+plan 15;
 
 {
     my Channel $c .= new;
@@ -33,6 +33,13 @@ plan 14;
     is $c.closed.cause.message, "oh noes", "failure reason conveyed";
 }
 
+{
+    my class X::Roast::Channel is Exception { };
+    my $c = Channel.new;
+    $c.fail(X::Roast::Channel.new);
+    throws_like { $c.receive }, X::Roast::Channel;
+}
+
 {
     my $p = Supply.for(1..5);
     is ~$p.Channel.list, "1 2 3 4 5", "Supply.for and .Channel work";