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
|
#!/usr/bin/perl
# This test is to confirm that values are preserved
# for input data when used with multiple constraints
# as 'params'
# note: this relies on the constraint built_to_fail
# being evaluated before expected_to_succeed. Which
# relies on the order on which perl returns the keys
# from each %{ $profile->{constraints} }
use Test::More tests => 7;
use Data::FormValidator;
use strict;
my %data = (
'depart_date' => '2004',
'return_date' => '2005',
);
my %profile = (
required => [qw/
depart_date
return_date
/],
field_filters => {
depart_date => sub { my $v = shift; $v =~ s/XXX//; $v; }
},
constraints => {
depart_date => {
name => 'expected_to_succeed',
params => [qw/depart_date return_date/],
constraint => sub {
my ($depart,$return) = @_;
Test::More::is($depart, '2004');
Test::More::is($return, '2005');
return ($depart < $return);
},
},
return_date => {
name => 'built_to_fail',
params => [qw/depart_date return_date/],
constraint => sub {
my ($depart,$return) = @_;
Test::More::is($depart, '2004');
Test::More::is($return, '2005');
return ($depart > $return);
},
},
},
missing_optional_valid => 1,
msgs => {
format => 'error(%s)',
constraints => {
'valid_date' => 'bad date',
'depart_le_return' => 'depart is greater than return',
},
},
);
my $results = Data::FormValidator->check(\%data, \%profile);
ok(!$results->valid('return_date'), 'first constraint applied intentionally fails');
ok($results->valid('depart_date'),
'second constraint still has access to value of field used in first failed constraint.');
# The next test are to confirm when a constraint method returns 'undef'
# that it causes no warnings to be issued
{
my %profile = (
required => ['foo'],
constraints => {
foo => {
constraint => sub {
return;
},
},
},
untaint_all_constraints => 1,
);
my $err = '';
local *STDERR;
open STDERR, '>', \$err;
my $results = Data::FormValidator->check({ foo => 1}, \%profile);
is($err, '', 'no warnings emitted');
}
|
