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
|
use strict;
#Check that the valid_* routines are nominally working.
$^W = 1;
use Test::More qw/no_plan/;
use Data::FormValidator qw(:validators :matchers);
my $invalid = "fake value";
#For CC Exp test
my @time = localtime(time);
my %tests = (
valid_american_phone => "555-555-5555",
valid_cc_exp => "10/" . sprintf("%.2d", ($time[5] - 99)),
valid_cc_type => "MasterCard",
valid_email => 'foo@domain.com',
valid_ip_address => "64.58.79.230",
valid_phone => "123-456-7890",
valid_postcode => "T2N 0E6",
valid_province => "NB",
valid_state => "CA",
valid_state_or_province => "QC",
valid_zip => "94112",
valid_zip_or_postcode => "50112",
);
my $i = 1;
foreach my $function (keys(%tests)) {
my $rv;
my $val = $tests{$function};
my $is_valid = "\$rv = $function('$val');";
my $not_valid = "\$rv = $function('$invalid');";
eval $is_valid;
ok(not $@ and $rv == 1) or
diag $@;
#diag sprintf("%-25s using %-16s", $function, "(valid value)");
$i++;
eval $not_valid;
ok(not $@ and not $rv) or
diag sprintf("%-25s using %-16s", $function, "(invalid value)");
$i++;
}
#Test cc_number separately since it takes multiple parameters
{
my $rv;
my $num = '4111111111111111';
eval "\$rv = match_cc_number('$num', 'v')";
ok(not $@ and ($rv eq $num)) or
diag sprintf("%-25s using %-16s", "match_cc_number", "valid value. ");
eval "\$rv = valid_cc_number('$invalid', 'm')";
ok(not $@ and not $rv) or
diag sprintf("%-25s using %-16s", "valid_cc_number", "(invalid value)");
}
$i++;
$i++;
#Test fake validation routine
{
my $rv;
eval "\$rv = valid_foobar('$invalid', 'm')";
ok($@) or
diag sprintf("%-25s", "Fake Valid Routine");
}
ok(! valid_email('pretty_b;ue_eyes16@cpan.org'), 'semi-colons in e-mail aren\'t valid');
ok(! valid_email('Ollie 102@cpan.org'), 'spaces in e-mail aren\'t valid');
ok(! valid_email('mark@summersualt.com\0mark@summersault.com'), "including a null in an e-mail is not valid.");
my $address_1 = 'mark';
isnt($address_1, valid_email($address_1), "'$address_1' is not a valid e-mail");
my $address_2 = 'Mark Stosberg <mark@summersault.com>';
ok(! valid_email($address_2), "'$address_2' is not a valid e-mail");
my $address_3 = 'mark@summersault.com';
ok(valid_email($address_3), "'$address_3' is a valid e-mail");
my $address_6 = 'Mark.Stosberg@summersault.com';
ok(valid_email($address_6), "'$address_6' is a valid e-mail");
my $address_7 = 'Mark_Stosberg@summersault.com';
ok(valid_email($address_7), "'$address_7' is a valid e-mail");
my $addr_8 = "Mark_O'Doul\@summersault.com";
ok(valid_email($addr_8), "'$addr_8' is a valid e-mail");
|
