use Test::More tests => 3;
package MyVal;
use Validation::Class;
field email => {required => 1};
field email1 => {required => 1};
field email2 => {required => 1};
field email3 => {required => 1};
package main;
my $v = MyVal->new(
params => {
email => 1,
email1 => 1,
email2 => 1,
email3 => 1
}
);
ok $v, 'initialization successful';
ok $v->validate(qr/email(\d+)?/), 'validation passed';
ok $v->error_count == 0, 'validation ok';