5 1_validate_06_groups.t - Test CGI::Ex::Validate's ability to use groups of validation
10 use Test::More tests => 7;
12 use_ok('CGI::Ex::Validate');
16 sub validate { scalar CGI::Ex::Validate::validate(@_) }
18 ###----------------------------------------------------------------###
20 ### three groups, some with validate_if's
22 'group validate_if' => 'foo',
23 bar => {required => 1},
26 'group validate_if' => 'hem',
27 haw => {required => 1},
30 raspberry => {required => 1},
33 $e = validate({}, $v);