Use default to mark exceptions as handled

Raku · Apr 5, 2014 · 5493dc6 · 5493dc6
1 parent 57c7c92
commit 5493dc6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/S03-operators/orelse.t b/S03-operators/orelse.t
@@ -15,15 +15,15 @@ nok $tracker, 'orelse thunks';
 {
     try {
         die "oh noes!" orelse pass("orelse continues after an exception");
-        CATCH { flunk "orelse shouldn't rethrow exceptions" }
+        CATCH { default { flunk "orelse shouldn't rethrow exceptions" } }
     }
 }
 
 #?rakudo todo "orelse exception semantics"
 {
     try {
         die "oh noes!" orelse ok(~$! eq "oh noes!", "orelse sets $! after an exception");
-        CATCH { flunk "orelse shouldn't rethrow exceptions" }
+        CATCH { default { flunk "orelse shouldn't rethrow exceptions" } }
     }
 }
 
@@ -33,7 +33,7 @@ nok $tracker, 'orelse thunks';
         die "oh noes!" orelse -> $foo {
             ok ~$foo eq "oh noes!", "orelse passes $! to one argument after an exception";
         };
-        CATCH { flunk "orelse shouldn't rethrow exceptions" }
+        CATCH { default { flunk "orelse shouldn't rethrow exceptions" } }
     }
 }
 
@@ -43,7 +43,7 @@ nok $tracker, 'orelse thunks';
         die "oh noes!" orelse -> $foo, $bar {
             ok ~$foo eq "oh noes!" && ~$bar eq "oh noes!", "orelse passes $! to two arguments after an exception";
         };
-        CATCH { flunk "orelse shouldn't rethrow exceptions" }
+        CATCH { default { flunk "orelse shouldn't rethrow exceptions" } }
     }
 }