use strict;
use Test::More;
use Data::Verifier;
{
my $verifier = Data::Verifier->new(
profile => {
name => {
post_check => sub {
my $r = shift;
return $r->get_value('name') eq 'Bob';
}
},
password => {
required => 1,
post_check => sub {
my $r = shift;
return $r->get_value('password') eq $r->get_value('password2');
}
},
password2 => {
required => 1
}
}
);
my $results = $verifier->verify({ password => 'foo', password2 => 'foo' });
ok($results->success, 'success');
cmp_ok($results->valid_count, '==', 3, '3 valid');
cmp_ok($results->invalid_count, '==', 0, 'none invalid');
cmp_ok($results->missing_count, '==', 0, 'none missing');
ok($results->is_valid('password'), 'password is valid');
ok($results->is_valid('password2'), 'password2 is valid');
cmp_ok($results->get_value('password'), 'eq', 'foo', 'get_value password');
cmp_ok($results->get_value('password2'), 'eq', 'foo', 'get_value password2');
$results = $verifier->verify({ name => 'Bob', password => 'foo', password2 => 'foo' });
ok($results->success, 'success');
$results = $verifier->verify({ name => 'bob', password => 'foo', password2 => 'foo' });
ok(!$results->success, 'success');
ok(!$results->is_valid('name'), 'name is valid');
}
{
my $verifier = Data::Verifier->new(
profile => {
email => {
required => 1,
dependent => {
email2 => {
required => 1,
}
},
post_check => sub {
my $r = shift;
return $r->get_value('email') eq $r->get_value('email2');
}
},
}
);
my $results = $verifier->verify({ email => 'foo', email2 => 'foo2' });
ok(!$results->success, 'failed');
cmp_ok($results->valid_count, '==', 1, '1 valid');
cmp_ok($results->invalid_count, '==', 1, '1 invalid');
cmp_ok($results->missing_count, '==', 0, 'none missing');
ok($results->is_invalid('email'), 'email is invalid');
ok($results->is_valid('email2'), 'email2 is valid');
}
{
my $verifier = Data::Verifier->new(
profile => {
email => {
required => 1,
dependent => {
email2 => {
required => 1,
}
},
post_check => sub {
my $r = shift;
die "Wakka Wakka!\n";
}
},
}
);
my $results = $verifier->verify({ email => 'foo', email2 => 'foo2' });
ok(!$results->success, 'failed');
cmp_ok($results->valid_count, '==', 1, '1 valid');
cmp_ok($results->invalid_count, '==', 1, '1 invalid');
cmp_ok($results->missing_count, '==', 0, 'none missing');
ok($results->is_invalid('email'), 'email is invalid');
ok($results->is_valid('email2'), 'email2 is valid');
cmp_ok($results->get_field('email')->reason, 'eq', "Wakka Wakka!\n", 'exception in reason');
}
done_testing;