Test default message in Failure.new without $! set.

Raku · Oct 11, 2015 · db83a45 · db83a45
1 parent 552fa60
commit db83a45
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/S04-exceptions/fail.t b/S04-exceptions/fail.t
@@ -2,10 +2,15 @@ use v6;
 
 use Test;
 
-plan 27;
+plan 28;
 
 # L<S04/Exceptions/The fail function>
 
+given (Failure.new()) {
+  .defined;
+  is .exception.message, "Failed", 'Default message for Failure is "Failed" without $!';
+}
+
 {
   # "use fatal" is not standard, so we don't have to disable it here
   my $was_after_fail  = 0;