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