Dogcows Code - chaz/p5-CGI-Ex/blob - t/1_validate_07_yaml.t

   1 # -*- Mode: Perl; -*-
   2
   3 =head1 NAME
   4
   5 1_validate_07_yaml.t - Check for CGI::Ex::Validate's ability to use YAML.
   6
   7 =cut
   8
   9 use strict;
  10 use Test::More tests => 5;
  11
  12 SKIP: {
  13
  14 skip("Missing YAML.pm", 5) if ! eval { require 'YAML.pm' };
  15
  16 use_ok('CGI::Ex::Validate');
  17
  18 my $N = 0;
  19 my $v;
  20 my $e;
  21
  22 sub validate { scalar CGI::Ex::Validate::validate(@_) }
  23
  24 ###----------------------------------------------------------------###
  25
  26 ### single group
  27 $v = '
  28 user:
  29   required: 1
  30 foo:
  31   required_if: bar
  32 ';
  33
  34 $e = validate({}, $v);
  35 ok($e);
  36 $e = validate({user => 1}, $v);
  37 ok(! $e);
  38 $e = validate({user => 1, bar => 1}, $v);
  39 ok($e);
  40 $e = validate({user => 1, bar => 1, foo => 1}, $v);
  41 ok(! $e);
  42
  43
  44 };