Dogcows Code - chaz/p5-CGI-Ex/blob - t/1_validate_04_cgi_fail.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   print "not ok 2\n";
  33 }