test Failure.exception

Author: moritz

S04-exceptions/fail.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 10;
+plan 12;
 
 # L<S04/Exceptions/The fail function>
 
@@ -55,6 +55,13 @@ plan 10;
     isa_ok $rt77946.defined, Bool, 'Failure.defined returns a Bool';
 }
 
+# RT #106832
+{
+    my $f = (sub { fail('foo') }).();
+    is $f.exception, 'foo', 'can extract exception from Failure';
+    isa_ok $f.exception, Exception, '... and it is an Exception';
+}
+
 done;
 
 # vim: ft=perl6