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
|
# Integration with Regexp::Common;
use Test::More tests => 13;
use Data::FormValidator;
my %FORM = (
bad_ip => '127 0 0 1',
good_ip => '127.0.0.1',
embedded_ip => 'The address is 127.0.0.1 or something close to that',
valid_int => 0,
);
my $results;
BEGIN { use_ok('Data::FormValidator::Constraints', qw/:regexp_common/) }
eval {
$results = Data::FormValidator->check(\%FORM, {
required => [qw/good_ip bad_ip valid_int/],
constraint_method_regexp_map => {
qr/_ip$/ => FV_net_IPv4(),
},
constraint_methods => {
valid_int => FV_num_int(),
}
});
};
is($@,'', 'survived eval');
ok($results->valid->{good_ip}, 'good ip');
ok($results->invalid->{bad_ip}, 'bad ip');
is($results->valid->{valid_int},0, 'zero is valid int');
$results = Data::FormValidator->check(\%FORM, {
untaint_all_constraints => 1,
required => [qw/good_ip bad_ip valid_int/],
constraint_method_regexp_map => {
qr/_ip$/ => FV_net_IPv4(),
},
constraint_methods => {
valid_int => FV_num_int(),
}
});
is($@,'', 'survived eval');
ok($results->valid->{good_ip}, 'good ip with tainting');
ok($results->invalid->{bad_ip}, 'bad ip with tainting');
is($results->valid->{valid_int},0, 'zero is valid int with untainting');
# Test passing flags
$results = Data::FormValidator->check(\%FORM, {
required => [qw/good_ip bad_ip/],
constraint_method_regexp_map => {
qr/_ip$/ => FV_net_IPv4_dec(-sep => ' '),
}
});
ok((not $@), 'runtime errors') or diag $@;
# Here we are trying passing a parameter which should reverse
# the notion of which one expect to succeed.
ok($results->valid->{bad_ip}, 'expecting success with params');
ok($results->invalid->{good_ip}, 'expecting failure with params');
# Testing end-to-end matching
$results = Data::FormValidator->check(\%FORM, {
required => [qw/embedded_ip/],
constraint_method_regexp_map => {
qr/_ip$/ => FV_net_IPv4(),
}
});
my $invalid = scalar $results->invalid || {};
ok($invalid->{embedded_ip}, 'testing that the RE must match from end-to-end');
|
