orelse isn't supposed to "try" its LHS

Raku · Apr 7, 2014 · 5a1a50a · 5a1a50a
1 parent 825948d
commit 5a1a50a
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/S03-operators/orelse.t b/S03-operators/orelse.t
@@ -14,24 +14,24 @@ nok $tracker, 'orelse thunks';
 #?rakudo todo "orelse exception semantics"
 {
     try {
-        die "oh noes!" orelse pass("orelse continues after an exception");
+        try { die "oh noes!" } orelse pass("orelse continues after an exception");
         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");
+        try { die "oh noes!" } orelse ok(~$! eq "oh noes!", 'orelse sets $! after an exception');
         CATCH { default { flunk "orelse shouldn't rethrow exceptions" } }
     }
 }
 
 #?rakudo todo "orelse exception semantics"
 {
     try {
-        die "oh noes!" orelse -> $foo {
-            ok ~$foo eq "oh noes!", "orelse passes $! to one argument after an exception";
+        try { die "oh noes!" } orelse -> $foo {
+            ok ~$foo eq "oh noes!", 'orelse passes $! to one argument after an exception';
         };
         CATCH { default { flunk "orelse shouldn't rethrow exceptions" } }
     }
@@ -40,8 +40,8 @@ nok $tracker, 'orelse thunks';
 #?rakudo todo "orelse exception semantics"
 {
     try {
-        die "oh noes!" orelse -> $foo, $bar {
-            ok ~$foo eq "oh noes!" && ~$bar eq "oh noes!", "orelse passes $! to two arguments after an exception";
+        try { die "oh noes!" } orelse -> $foo, $bar {
+            ok ~$foo eq "oh noes!" && ~$bar eq "oh noes!", 'orelse passes $! to two arguments after an exception';
         };
         CATCH { default { flunk "orelse shouldn't rethrow exceptions" } }
     }