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

   1 # -*- Mode: Perl; -*-
   2
   3 use strict;
   4
   5 $^W = 1;
   6
   7 print "1..2\n";
   8
   9 use CGI::Ex;
  10
  11 print "ok 1\n";
  12
  13 my $form = {
  14   user => 'abc',
  15   pass => '123',
  16 };
  17 my $val = {
  18   user => {
  19     required => 1,
  20   },
  21   pass => {
  22     required => 1,
  23   },
  24 };
  25
  26 my $err_obj = CGI::Ex->new->validate($form,$val);
  27
  28 if (! $err_obj) {
  29   print "ok 2\n";
  30 } else {
  31   print "not ok 2\n";
  32 }