better error message when getting wrong exception

masak · Jan 19, 2015 · 5bf62a2 · 5bf62a2
1 parent 716eb9a
commit 5bf62a2
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/_007/Test.pm b/lib/_007/Test.pm
@@ -127,6 +127,10 @@ sub parse-error($program, $expected-error, $desc = $expected-error.^name) is exp
         when $expected-error {
             pass $desc;
         }
+        default {
+            is .^name, $expected-error.^name;   # which we know will flunk
+            return;
+        }
     }
     flunk $desc;
 }