-
Notifications
You must be signed in to change notification settings - Fork 135
/
sigilless.t
45 lines (35 loc) · 1.15 KB
/
sigilless.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
use v6.c;
use Test;
plan 10;
# test \term
{
sub identity(\x) { x }
sub is-item(\x) {
x.VAR !=== x;
}
sub swap(\x, \y) {
my $z = y;
y = x;
x = $z;
}
is identity('foo'), 'foo',
'basic passing of an argument to backslashed identifier';
nok is-item((1, 2, 3)), 'passing of flattening arguments ';
#?rakudo.jvm skip 'issue with harness, tests passes when test file is executed manually'
ok is-item($[1, 2, 3]), 'passing of non-flatteing arguments';
my $a = 5;
my $b = 3;
lives-ok { EVAL 'swap($a, $b)' }, 'backslash does not make read-only';
is "$a|$b", '3|5', 'swapping worked';
dies-ok { EVAL 'swap(42, $a)' }, 'no additional writable containers involved';
}
# test |term
{
sub pass-on(&c, |args) { c(|args) }
sub join-em(|args) { args.list.join('|') }
is pass-on(-> $a, $b { $a + $b }, 2, 3), 5, '|args sanity (1)';
is join-em('foo', 42), 'foo|42', '|args sanity (2)';
is join-em(pass-on(-> $a, $b { $a + $b }, 2, 3), 42),
'5|42', 'combined sanity';
is pass-on({ $:l~ $:w }, :w<6>, :l<p>), 'p6', 'named arguments';
}