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

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