use Test::More tests => 4;
package MyVal;
use Validation::Class;
package main;
my $r = MyVal->new(
fields => {
one => {
label => 'Object',
min_alpha => 2
}
}
);
$r->params->{one} = 'see';
ok $r->validate('one'), 'validation ok';
$r->params->{one} = 'be';
ok $r->validate('one'), 'validation ok';
$r->params->{one} = 'a';
ok !$r->validate('one'), 'validation failed';
$r->params->{one} = 'zz123456';
ok $r->validate('one'), 'validation ok';