A further test for RT #112922.

Raku · Jun 30, 2015 · 6ad32a7 · 6ad32a7
1 parent c286040
commit 6ad32a7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/S06-signature/optional.t b/S06-signature/optional.t
@@ -3,7 +3,7 @@ use Test;
 
 # L<S06/Optional parameters/>
 
-plan 29;
+plan 30;
 
 sub opt1($p?) { defined($p) ?? $p !! 'undef'; }
 
@@ -130,6 +130,8 @@ eval-dies-ok 'sub opt($a = 1, $b) { }',
 {
     throws-like 'sub foo(Int $x = "omg") { }', X::Parameter::Default::TypeCheck,
         'Catch impossible default types at compile time';
+    throws-like 'sub foo(Bool $b = sub { False }) {}', X::Parameter::Default::TypeCheck,
+        'Catch impossible default types at compile time (code object)';
 }
 
 # vim: ft=perl6