add test for Exception.resume in CATCH

Raku · Jun 17, 2014 · 09ecc5e · 09ecc5e
1 parent 1e909c2
commit 09ecc5e
Showing 1 changed file with 12 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 26;
+plan 27;
 
 #?pugs todo
 {
@@ -110,6 +110,17 @@ plan 26;
     is $catches, 1, 'CATCH does not catch exceptions thrown within it';
 }
 
+#?niecza '.resume does not actually resume'
+{
+    my $resumed = 0;
+    try {
+        die "ohh";
+        $resumed = 1;
+        CATCH { default { .resume } }
+    }
+    is $resumed, 1, 'CATCH allows to resume to right after the exception';
+}
+
 # RT #68728
 #?pugs todo
 #?rakudo.jvm skip "Method 'substr' not found"