Add tests for RT #RT #123053; currently skipped.

Raku · Apr 8, 2015 · 9699743 · 9699743
1 parent 5069ad0
commit 9699743
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S04-statements/try.t b/S04-statements/try.t
@@ -4,7 +4,7 @@ use Test;
 
 # L<S04/"Statement parsing"/"or try {...}">
 
-plan 27;
+plan 30;
 
 {
     # simple try
@@ -160,6 +160,15 @@ plan 27;
     try { $x = $_ } given '42';
     is $x, '42', 'try block in statement-modifying contextualizer';
 }
+
+# RT #123053
+#?rakudo skip 'RT #123053'
+lives_ok { try +'foo' }, 'Failure does not escape try (statement form)';
+#?rakudo skip 'RT #123053'
+lives_ok { try { +'foo' } }, 'Failure does not escape try (block form)';
+#?rakudo skip 'RT #123053'
+lives_ok { try { +'foo'; CATCH { default { } } } }, 'Failure does not escape try (block form with CATCH)';
+
 done;
 
 # vim: ft=perl6