Skip to content
Browse files

only one CATCH per block, please

  • Loading branch information...
1 parent af82544 commit 7bf75824b54d0e5e283b2921a81bfa488abbbc26 @moritz moritz committed
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 26;
+plan 27;
=begin desc
@@ -229,5 +229,7 @@ lives_ok { do {die 'blah'; CATCH {default {}}}; }, 'do block with CATCH {default
# RT #80864
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';
# vim: ft=perl6

0 comments on commit 7bf7582

Please sign in to comment.
Something went wrong with that request. Please try again.