Test for RT #124191.

Raku · Jun 9, 2015 · 3b3af27 · 3b3af27
1 parent 60dd9f8
commit 3b3af27
Showing 1 changed file with 5 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 29;
+plan 30;
 
 =begin desc
 
@@ -251,4 +251,8 @@ eval-dies-ok 'try { CATCH { ~$! }; die }', "doesn't segfault";
     }, 'Two invocations of a die()ing routine should still hit the CATCH handler';
 }
 
+# RT #124191
+lives-ok { for ^1000 { die Exception.new; CATCH { default {} } } },
+    'Hot-path optimization does not break exception handling';
+
 # vim: ft=perl6