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
|
use warnings;
use strict;
use Test::More tests => 12;
use FindBin;
use Function::Parameters {
func => {
name => 'required',
},
f => {
name => 'prohibited',
},
method => {
name => 'required',
shift => '$this',
},
};
func foo($x, $y, $z) {
$x .= $z;
return $y . $x . $y;
}
method bar($k, $d) {
$d = $k . $d;
return $d . $this->{$k} . $d;
}
is foo('a', 'b', 'c'), 'bacb';
is bar({ab => 'cd'}, 'ab', 'e'), 'abecdabe';
my $baz = f ($x) { $x * 2 + 1 };
is $baz->(11), 23;
is $baz->(-0.5), 0;
for my $fail (
map ["$FindBin::Bin/name_$_->[0].fail", @$_[1 .. $#$_]],
['1', qr/expect.*function.*name/],
['2', qr/expect.*parameter.*list/],
['3', qr/expect.*function.*name/],
['4', qr/Global symbol "\$self" requires explicit package name/]
) {
my ($file, $pat) = @$fail;
my $done = do $file;
my $exc = $@;
my $err = $!;
is $done, undef, "faulty code doesn't load - $file";
$exc or die "$file: $err";
like $exc, $pat;
}
|
