use Test::More tests => 4;
package MyVal;
use Validation::Class;
package main;
my $r = MyVal->new(
fields => {
one => {
label => 'Object',
max_sum => 100
}
}
);
$r->params->{one} = 1;
ok $r->validate('one'), 'validation ok';
$r->params->{one} = 11;
ok $r->validate('one'), 'validation ok';
$r->params->{one} = 111;
ok !$r->validate('one'), 'validation failed';
$r->params->{one} = 100;
ok $r->validate('one'), 'validation ok';