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

   1 # -*- Mode: Perl; -*-
   2
   3 =head1 NAME
   4
   5 1_validate_06_groups.t - Test CGI::Ex::Validate's ability to use groups of validation
   6
   7 =cut
   8
   9 use strict;
  10 use Test::More tests => 7;
  11
  12 use_ok('CGI::Ex::Validate');
  13
  14 my ($v, $e);
  15
  16 sub validate { scalar CGI::Ex::Validate::validate(@_) }
  17
  18 ###----------------------------------------------------------------###
  19
  20 ### three groups, some with validate_if's
  21 $v = [{
  22   'group validate_if' => 'foo',
  23   bar => {required => 1},
  24 },
  25 {
  26   'group validate_if' => 'hem',
  27   haw => {required => 1},
  28 },
  29 {
  30   raspberry => {required => 1},
  31 }];
  32
  33 $e = validate({}, $v);
  34 ok($e);
  35
  36 $e = validate({
  37   raspberry => 'tart',
  38 }, $v);
  39 ok(! $e);
  40
  41 $e = validate({
  42   foo => 1,
  43   raspberry => 'tart',
  44 }, $v);
  45 ok($e);
  46
  47 $e = validate({
  48   foo => 1,
  49   bar => 1,
  50   raspberry => 'tart',
  51 }, $v);
  52 ok(! $e);
  53
  54 $e = validate({
  55   foo => 1,
  56   bar => 1,
  57   hem => 1,
  58   raspberry => 'tart',
  59 }, $v);
  60 ok($e);
  61
  62 $e = validate({
  63   foo => 1,
  64   bar => 1,
  65   hem => 1,
  66   haw => 1,
  67   raspberry => 'tart',
  68 }, $v);
  69 ok(! $e);
  70