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
115
116
117
118
119
120
121
122
123
|
package PVTests::Defaults;
use strict;
use warnings;
use Params::Validate qw(:all);
use PVTests;
use Test::More;
sub run_tests
{
plan tests => 21;
{
my %def = eval { foo() };
is( $@, q{},
'No error calling foo()' );
is( $def{a}, 1,
q|Parameter 'a' was not altered| );
is( $def{b}, 2,
q|Parameter 'b' was not altered| );
is( $def{c}, 42,
q|Correct default assigned for parameter 'c'| );
is( $def{d}, 0,
q|Correct default assigned for parameter 'd'| );
}
{
my $def = eval { foo() };
is( $@, q{},
'No error calling foo()' );
is( $def->{a}, 1,
q|Parameter 'a' was not altered| );
is( $def->{b}, 2,
q|Parameter 'b' was not altered| );
is( $def->{c}, 42,
q|Correct default assigned for parameter 'c'| );
is( $def->{d}, 0,
q|Correct default assigned for parameter 'd'| );
}
{
my @def = eval { bar() };
is( $@, q{},
'No error calling bar()' );
is( $def[0], 1,
'1st parameter was not altered' );
is( $def[1], 2,
'2nd parameter was not altered' );
is( $def[2], 42,
'Correct default assigned for 3rd parameter' );
is( $def[3], 0,
'Correct default assigned for 4th parameter' );
}
{
my $def = eval { bar() };
is( $@, q{},
'No error calling bar()' );
is( $def->[0], 1,
'1st parameter was not altered' );
is( $def->[1], 2,
'2nd parameter was not altered' );
is( $def->[2], 42,
'Correct default assigned for 3rd parameter' );
is( $def->[3], 0,
'Correct default assigned for 4th parameter' );
}
{
my $spec = { foobar => { default => [] } };
my $test1 = validate_with( params => [], spec => $spec );
$test1->{foobar} = ['x'];
my $test2 = validate_with( params => [], spec => $spec );
$test2->{foobar} = ['y'];
is( $test1->{foobar}[0], 'x',
'defaults pointing to a reference return a copy of that reference' );
}
}
sub foo
{
my @params = ( a => 1, b => 2 );
return validate( @params, { a => 1,
b => { default => 99 },
c => { optional => 1, default => 42 },
d => { default => 0 },
} );
}
sub bar
{
my @params = ( 1, 2 );
return validate_pos( @params, 1, { default => 99 }, { default => 42 }, { default => 0 } );
}
1;
|
