forked from Raku/roast
-
Notifications
You must be signed in to change notification settings - Fork 0
/
passing-arrays.t
69 lines (55 loc) · 1.45 KB
/
passing-arrays.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
60
61
62
63
64
65
66
67
68
69
use v6;
use Test;
# L<S06/Parameters and arguments>
# TODO: better smart-linking
plan 11;
{
sub count(@a) {
my $x = 0;
$x++ for @a;
return $x;
}
is count([1, 2, 3, 4]), 4, 'count([1, 2, 3, 4])';
is count(my @b = 1, 2, 3, 4), 4, 'count(my @b = 1, 2, 3)';
is count((1, 2, 3)), 3, 'count((1, 2, 3))';
sub count2($a) {
my $x = 0;
$x++ for $a;
return $x;
}
is count2((1,2,3)), 1, 'count2((1,2,3))';
}
{
sub pa(@a) { @a.WHAT; }
my @b = 2, 3;
isa_ok pa(@b), Array, 'basic array type sanity';
#?pugs todo
dies_ok { eval('pa(3)') }, 'non-slurpy array does not take a single Int';
sub ph(%h) { 1 } #OK not used
#?pugs todo
dies_ok { eval('ph(3)') }, 'an Int is not a Hash';
}
# this used to be a rakudobug, RT #62172
{
my @a = 1..8;
sub t1(@a) { return +@a };
sub t2(@a) { return t1(@a) };
is t2(@a), 8, 'can pass arrays through multiple subs';
}
{
sub test_two_array(@a,@b)
{
return @a[0] + @b[0];
}
is(test_two_array([100,5],[20,300]), 120,
"Passing array references to functions accepting arrays works.");
}
# A Rakudo regression
{
sub ro_a(@a) { }; #OK not used
sub ro_b(@a) { ro_a(@a) };
my @x = 1, 2, 4;
lives_ok { ro_b(@x) }, 'can pass parameter Array on to next function';
lives_ok { @x = 5, 6 }, '... and that did not make the caller Array ro';
}
# vim: ft=perl6