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
70
71
72
73
74
75
76
77
78
79
80
81
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Warn;
use Test::Exception;
use Method::Signatures;
plan tests => 4;
subtest 'yada after positional' => sub {
plan tests => 2;
func yada_after_positional ($pos1, $pos2, ...) {
subtest @_ . ' args' => sub {
is $pos1, 'pos1' => '$pos1 okay';
is $pos2, 'pos2' => '$pos2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
yada_after_positional('pos1', 'pos2', 'pos3', named => 'named');
yada_after_positional('pos1', 'pos2', 'pos3', named => 'named', other => 'other');
};
subtest 'yada after named' => sub {
plan tests => 2;
func yada_after_named (:$named1, :$named2, ...) {
subtest @_ . ' args' => sub {
is $named1, 'named1' => '$named1 okay';
is $named2, 'named2' => '$named2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
yada_after_named(named2 => 'named2', named1 => 'named1');
yada_after_named(named2 => 'named2', named1 => 'named1', other => 'other');
};
subtest 'yada after both' => sub {
plan tests => 2;
func yada_after_both ($pos1, $pos2, :$named1, :$named2, ...) {
subtest @_ . ' args' => sub {
is $pos1, 'pos1' => '$pos1 okay';
is $pos2, 'pos2' => '$pos2 okay';
is $named1, 'named1' => '$named1 okay';
is $named2, 'named2' => '$named2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
yada_after_named('pos1', 'pos2', named2 => 'named2', named1 => 'named1');
yada_after_named('pos1', 'pos2', named2 => 'named2', named1 => 'named1', other => 'other');
};
subtest 'non-yada' => sub {
plan tests => 2;
func non_yada ($pos1, $pos2, :$named1, :$named2) {
subtest @_ . ' args' => sub {
is $pos1, 'pos1' => '$pos1 okay';
is $pos2, 'pos2' => '$pos2 okay';
is $named1, 'named1' => '$named1 okay';
is $named2, 'named2' => '$named2 okay';
done_testing; # for Test::More's before 0.96
};
return 1;
}
non_yada('pos1', 'pos2', named2 => 'named2', named1 => 'named1');
ok !eval{ non_yada('pos1', 'pos2', named2 => 'named2', named1 => 'named1', other => 'other') }
=> 'Extra args rejected';
};
|
