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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
use Test::More;
BEGIN {
unless ( $ENV{RELEASE_TESTING} ) {
plan skip_all => 'these tests are for release testing';
}
$ENV{PV_TEST_PERL} = 1;
}
use strict;
use warnings;
use File::Spec;
use lib File::Spec->catdir( 't', 'lib' );
use PVTests;
use Test::More;
use Attribute::Params::Validate;
use Params::Validate qw(:all);
sub foo : Validate( c => { type => SCALAR } ) {
my %data = @_;
return $data{c};
}
sub bar : Validate( c => { type => SCALAR } ) method {
my $self = shift;
my %data = @_;
return $data{c};
}
sub baz :
Validate( foo => { type => ARRAYREF, callbacks => { '5 elements' => sub { @{shift()} == 5 } } } )
{
my %data = @_;
return $data{foo}->[0];
}
sub buz : ValidatePos( 1 ) {
return $_[0];
}
sub quux : ValidatePos( { type => SCALAR }, 1 ) {
return $_[0];
}
my $res = eval { foo( c => 1 ) };
is(
$@, q{},
"Call foo with a scalar"
);
is(
$res, 1,
'Check return value from foo( c => 1 )'
);
eval { foo( c => [] ) };
like(
$@, qr/The 'c' parameter .* was an 'arrayref'/,
'Check exception thrown from foo( c => [] )'
);
$res = eval { main->bar( c => 1 ) };
is(
$@, q{},
'Call bar with a scalar'
);
is(
$res, 1,
'Check return value from bar( c => 1 )'
);
eval { baz( foo => [ 1, 2, 3, 4 ] ) };
like(
$@, qr/The 'foo' parameter .* did not pass the '5 elements' callback/,
'Check exception thrown from baz( foo => [1,2,3,4] )'
);
$res = eval { baz( foo => [ 5, 4, 3, 2, 1 ] ) };
is(
$@, q{},
'Call baz( foo => [5,4,3,2,1] )'
);
is(
$res, 5,
'Check return value from baz( foo => [5,4,3,2,1] )'
);
eval { buz( [], 1 ) };
like(
$@, qr/2 parameters were passed to .* but 1 was expected/,
'Check exception thrown from quux( [], 1 )'
);
$res = eval { quux( 1, [] ) };
is(
$@, q{},
'Call quux'
);
done_testing();
|