# -*- Mode: Perl; -*-
=head1 NAME
1_validate_03_cgi.t - Test CGI::Ex::Fill's ability to interact with CGI.pm.
=cut
use strict;
use Test::More tests => 3;
use_ok('CGI::Ex::Validate');
SKIP: {
skip("CGI.pm not installed", 2) if ! eval { require CGI };
my $form = CGI->new({
user => 'abc',
pass => '123',
});
my $val = {
user => {
required => 1,
},
pass => {
required => 1,
},
};
my $err_obj = CGI::Ex::Validate::validate($form,$val);
ok(! $err_obj, "Correctly didn't get an error object");
$form = CGI->new({
user => 'abc',
#pass => '123',
});
$err_obj = CGI::Ex::Validate::validate($form, $val);
ok($err_obj, "Correctly did get an error object");
}