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
|
use Test::More;
package main;
use utf8;
use Validation::Class::Simple;
my $r = Validation::Class::Simple->new(fields => {city => {city => 1}});
# failures
$r->params->{city} = 'bumfuck';
ok !$r->validate(), 'bumfuck is invalid';
$r->params->{city} = 'prison';
ok !$r->validate(), 'prison is invalid';
$r->params->{city} = 'st louis';
ok !$r->validate(), 'st louis is invalid';
# successes
$r->params->{city} = 'new york';
ok $r->validate(), 'new york is valid';
$r->params->{city} = 'st. louis';
ok $r->validate(), 'st. louis is valid';
$r->params->{city} = 'atlanta';
ok $r->validate(), 'atlanta is valid';
$r->params->{city} = 'philadelphia';
ok $r->validate(), 'philadelphia is valid';
$r->params->{city} = 'santa monica';
ok $r->validate(), 'santa monica is valid';
$r->params->{city} = 'baltimore';
ok $r->validate(), 'baltimore is valid';
$r->params->{city} = 'santa bárbara';
ok $r->validate(), 'santa bárbara is valid';
done_testing;
|
