test that fail() can handle typed exceptions

Raku · Mar 25, 2012 · 2f179c1 · 2f179c1
1 parent d720afa
commit 2f179c1
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S04-exceptions/fail.t b/S04-exceptions/fail.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 12;
+plan 13;
 
 # L<S04/Exceptions/The fail function>
 
@@ -62,6 +62,12 @@ plan 12;
     isa_ok $f.exception, Exception, '... and it is an Exception';
 }
 
+{
+    class AnEx is Exception { };
+    my $f = (sub f { fail AnEx.new }).();
+    isa_ok $f.exception, AnEx, 'can fail() typed exceptions';
+}
+
 done;
 
 # vim: ft=perl6