[t/spec] Correct mistake in array unpacking test, and make it work wi…

…thout reduction operator. git-svn-id: http://svn.pugscode.org/pugs@29753 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Feb 16, 2010 · b1a7ce4 · b1a7ce4
1 parent bb5e45b
commit b1a7ce4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/S06-signature/unpack-array.t b/S06-signature/unpack-array.t
@@ -9,10 +9,10 @@ sub foo($x, [$y, *@z]) {
 }
 
 my @a = 2, 3, 4, 5;
-is foo(1, @a), '2|3|4;5',  'array unpacking';
+is foo(1, @a), '1|2|3;4;5',  'array unpacking';
 
 sub bar([$x, $y, $z]) {
-    return [*] $x, $y, $z;
+    return $x * $y * $z;
 }
 
 ok bar(@a[0..2]) == 24, 'fixed length array unpacking';