Test for RT #114100 (Capture.perl flattening bug).

Raku · Apr 28, 2015 · 50dbbdf · 50dbbdf
1 parent 0aae938
commit 50dbbdf
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S02-types/capture.t b/S02-types/capture.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 26;
+plan 27;
 
 {
     my $capture = \(1,2,3);
@@ -151,4 +151,11 @@ nok (defined  \()[0]), '\()[0] is not defined';
     is %(\( (:a(2)) )).elems, 0, 'Parens around a colonpair in \(...) make a positional (2)';
 }
 
+# RT #114100
+{
+    sub f(|everything) { everything.perl };
+    my %h = :a, :b, :!c;
+    ok f(%h) ~~ /'\(' \s* '{'/, 'Hashes not flattened into capture list';
+}
+
 # vim: ft=perl6