-
Notifications
You must be signed in to change notification settings - Fork 135
/
unpack-array.t
59 lines (45 loc) · 1.8 KB
/
unpack-array.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
use Test;
plan 15;
# L<S06/Unpacking array parameters>
sub foo($x, [$y, *@z]) {
return "$x|$y|" ~ @z.join(';');
}
my @a = 2, 3, 4, 5;
is foo(1, @a), '1|2|3;4;5', 'array unpacking';
sub bar([$x, $y, $z]) {
return $x * $y * $z;
}
ok bar(@a[0..2]) == 24, 'fixed length array unpacking';
dies-ok { bar [1,2] }, 'fixed length array unpacking too short';
dies-ok { bar [1,2,3,4] }, 'fixed length array unpacking too long';
sub baz([$x, $y?, $z?]) {
return "$x|$y.gist()|$z.gist()";
}
dies-ok { baz( [] ) } , 'unpack optional scalars; required scalar missing';
is baz( [2] ), "2|(Any)|(Any)", 'unpack optional scalars; one required';
is baz( [2,3] ), "2|3|(Any)", 'unpack optional scalars; one required + one optional';
is baz( [2,3,4] ), "2|3|4", 'unpack optional scalars; one required + two optional';
dies-ok { baz( [2,3,4,5] ) }, 'unpack optional scalars; one required + too many optional';
sub blat ($x, @a [$a, *@b]) {
return $x == 1 ?? @a.join("|") !! "$a-" ~ @b.join('-');
}
is blat( 1, [2,3,4] ), "2|3|4", 'unpack named array';
is blat( 2, [2,3,4] ), "2-3-4", 'unpack named array with named pieces';
# https://github.com/Raku/old-issue-tracker/issues/1859
{
my @my-array = 4,2,3,4;
sub fsort-only([$p?,*@r]) {
return flat fsort-only(@r.grep( {$_ <= $p} )),$p,fsort-only(@r.grep( {$_ > $p} )) if $p || @r;
}
multi fsort-multi([$p?,*@r]) {
return |fsort-multi(@r.grep( {$_ <= $p} )),$p,|fsort-multi(@r.grep( {$_ > $p} )) if $p || @r;
}
my $a = try fsort-only(@my-array).join(' ');
is $a, '2 3 4 4', 'array unpacking and only-subs';
my $b = try fsort-multi(@my-array).join(' ');
is $b, '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: expandtab shiftwidth=4