Permalink
Browse files

add test for RT #115184

  • Loading branch information...
1 parent 9c0a20d commit 8400bc99228c58d7ba1e24c71c6c8cab6d376a8b @coke coke committed Jan 15, 2014
Showing with 3 additions and 1 deletion.
  1. +3 −1 S04-exception-handlers/catch.t
View
4 S04-exception-handlers/catch.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 27;
+plan 28;
=begin desc
@@ -231,5 +231,7 @@ lives_ok { do {die 'blah'; CATCH {default {}}}; }, 'do block with CATCH {default
eval_lives_ok 'my %a; %a{ CATCH { } }', 'can define CATCH bock in .{}';
# RT #73988
eval_dies_ok 'do { CATCH {}; CATCH { } }', 'only one CATCH per block allowed';
+# RT #115184
+eval_dies_ok 'try { CATCH { ~$! }; die }', "doesn't segfault"
# vim: ft=perl6

0 comments on commit 8400bc9

Please sign in to comment.