-
Notifications
You must be signed in to change notification settings - Fork 135
/
mixed-placeholders.t
39 lines (32 loc) · 1.31 KB
/
mixed-placeholders.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
use v6;
use Test;
#L<S06/Placeholder variables/>
plan 18;
sub t {
is $^tene, 3, "Placeholder vars work";
is $:DietCoke, 6, "Placeholder vars work";
is $^chromatic, 1, "Placeholder vars work";
is $:moritz, 4, "Placeholder vars work";
is $^mncharity, 2, "Placeholder vars work";
is $:TimToady, 5, "Placeholder vars work";
is @_[1], 8, "Placeholder vars work";
is %_<bar>, 11, "Placeholder vars work";
is @_[0], 7, "Placeholder vars work";
is %_<foo>, 10, "Placeholder vars work";
is @_[2], 9, "Placeholder vars work";
is %_<baz>, 12, "Placeholder vars work";
}
t(1, 2, 3, :moritz(4), :TimToady(5), :DietCoke(6), 7, 8, 9, :foo(10), :bar(11), :baz(12));
# RT #125260
{
sub placeholder-array { @^a }
sub placeholder-hash { %^a }
sub placeholder-code { &^a }
lives-ok { EVAL 'placeholder-array [1,2]' }, '@ sigil placeholder takes array';
dies-ok { EVAL 'placeholder-array 42' }, '@ sigil placeholder rejects Int';
lives-ok { EVAL 'placeholder-hash {:x}' }, '% sigil placeholder takes hash';
dies-ok { EVAL 'placeholder-hash 42' }, '% sigil placeholder rejects Int';
lives-ok { EVAL 'placeholder-code { ; }' }, '& sigil placeholder takes block';
dies-ok { EVAL 'placeholder-code 42' }, '& sigil placeholder rejects Int';
}
# vim: ft=perl6