Container handling test for "-> $a [$x, $y] { }".

Raku · Jun 2, 2014 · 4e6880c · 4e6880c
1 parent 8312a32
commit 4e6880c
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S06-signature/unpack-array.t b/S06-signature/unpack-array.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 13;
+plan 15;
 
 # L<S06/Unpacking array parameters>
 
@@ -52,4 +52,8 @@ is blat( 2, [2,3,4] ), "2-3-4", 'unpack named array with named pieces';
    is fsort-multi(@my-array).join(' '), '2 3 4 4', 'array unpacking and only-multi';
 }
 
+for [1,2],[3,4] -> $a [$x, $y] {
+    isa_ok $a.VAR, Scalar, "[...] doesn't lose containerization";
+}
+
 # vim: ft=perl6