5 1_validate_07_yaml.t - Check for CGI::Ex::Validate's ability to use YAML.
10 use Test::More tests => 17;
14 skip("Missing YAML.pm", 17) if ! eval { require 'YAML.pm' };
16 use_ok('CGI::Ex::Validate');
22 sub validate { scalar CGI::Ex::Validate::validate(@_) }
24 ###----------------------------------------------------------------###
34 $e = validate({}, $v);
36 $e = validate({user => 1}, $v);
38 $e = validate({user => 1, bar => 1}, $v);
40 $e = validate({user => 1, bar => 1, foo => 1}, $v);
44 ### three groups, some with validate_if's - using arrayref
46 - group validate_if: foo
49 - group validate_if: hem
55 $e = validate({}, $v);
94 ### three groups, some with validate_if's - using documents
96 group validate_if: foo
100 group validate_if: hem
107 $e = validate({}, $v);