added test for RT #68728

Raku · Feb 23, 2011 · f8f23b9 · f8f23b9
1 parent f47e392
commit f8f23b9
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/S04-statements/try.t b/S04-statements/try.t
@@ -103,6 +103,21 @@ plan 17;
     is $catches, 1, 'CATCH does not catch exceptions thrown within it';
 }
 
+# RT #68728
+{
+    my $str = '';
+    try {
+        say abc;
+        CATCH {
+            $str ~= 'A';
+            if 'foo' ~~ /foo/ {
+                $str ~= 'B';
+                $str ~= $/;
+            }
+        }
+    }
+    is $str, 'ABfoo', 'block including if structure and printing $/ OK';
+}
 done;
 
 # vim: ft=perl6