test throwing exceptions in CATCH blocks

Raku · Oct 26, 2011 · c3c9fb7 · c3c9fb7
1 parent be0ff5f
commit c3c9fb7
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/S04-exception-handlers/catch.t b/S04-exception-handlers/catch.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 24;
+plan 25;
 
 =begin desc
 
@@ -213,5 +213,18 @@ lives_ok { do {die 'blah'; CATCH {default {}}}; }, 'do block with CATCH {default
     ok $!.^isa(Exception), '$!.^isa works';
 }
 
+# RT #64262
+{
+    dies_ok {
+        try {
+            die 1;
+            CATCH {
+                default {
+                    die 2;
+                }
+            }
+        }
+    }, 'can throw exceptions in CATCH';
+}
 
 # vim: ft=perl6