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 37 38
|
use FindBin;
use Test::More;
use utf8;
use strict;
use warnings;
{
use_ok 'Validation::Class';
}
{
{
package T;
use Validation::Class;
field foo => { required => 1, alias => ['bar'] };
}
package main;
my $t = T->new(
ignore_unknown => 1,
report_unknown => 1,
);
$t->params->add({'bar' => 'ayeoke'});
ok "T" eq ref $t, "T instantiated";
ok $t->validate, 't validates all params successfully';
ok !$t->error_count, 't has no errors';
}
done_testing();
|