# -*- Mode: Perl; -*-
=head1 NAME
1_validate_00_base.t - Test CGI::Ex::Validate's ability to compile and execute
=cut
use strict;
use Test::More tests => 5;
use_ok('CGI::Ex::Validate');
my $form = {
user => 'abc',
pass => '123',
};
my $val = {
user => {
required => 1,
},
pass => {
required => 1,
},
};
my $err_obj = CGI::Ex::Validate::validate($form, $val);
ok(! $err_obj, "Basic function works");
###----------------------------------------------------------------###
$form = {
user => 'abc',
# pass => '123',
};
$err_obj = CGI::Ex::Validate::validate($form,$val);
ok($err_obj, "Successfully failed");
###----------------------------------------------------------------###
eval { CGI::Ex::Validate::validate($form,undef) };
ok($@, "Needs to have a hashref");
###----------------------------------------------------------------###
$err_obj = CGI::Ex::Validate::validate($form,{});
ok(!$err_obj, "OK with empty hash");