test for RT #76728, assigning to optional hash param

Raku · Oct 20, 2011 · b653885 · b653885
1 parent e42a6ad
commit b653885
Showing 1 changed file with 10 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 23;
+plan 24;
 
 sub opt1($p?) { defined($p) ?? $p !! 'undef'; }
 
@@ -94,4 +94,13 @@ eval_dies_ok 'sub opt($a = 1, $b) { }',
     dies_ok { eval('opt-type2()') }, 'default values are type-checked';
 }
 
+# RT # 76728
+{
+    sub opt-hash(%h?) {
+        %h<a> = 'b';
+        %h
+    }
+    is opt-hash().keys, 'a', 'can assign to optional parameter';
+}
+
 # vim: ft=perl6