From 7bf75824b54d0e5e283b2921a81bfa488abbbc26 Mon Sep 17 00:00:00 2001 From: Moritz Lenz Date: Wed, 26 Oct 2011 10:52:01 +0200 Subject: [PATCH] only one CATCH per block, please --- S04-exception-handlers/catch.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/S04-exception-handlers/catch.t b/S04-exception-handlers/catch.t index 51d8837d38..37827bea78 100644 --- a/S04-exception-handlers/catch.t +++ b/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