cvs commit: modperl-2.0/t/modules cgi.t

[dougm]

dougm       01/05/07 22:08:52

  Modified:    t/modules cgi.t
  Log:
  add simple file upload test for CGI.pm
  
  Revision  Changes    Path
  1.2       +4 -1      modperl-2.0/t/modules/cgi.t
  
  Index: cgi.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modules/cgi.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- cgi.t     2001/05/08 04:25:50     1.1
  +++ cgi.t     2001/05/08 05:08:52     1.2
  @@ -4,7 +4,7 @@
   use Apache::Test;
   use Apache::TestRequest;
   
  -plan tests => 3, \&have_lwp;
  +plan tests => 4, \&have_lwp;
   
   my $location = "/TestModules::cgi";
   
  @@ -14,4 +14,7 @@
   print $str;
   
   $str = POST_BODY $location, content => 'PARAM=%33';
  +print $str;
  +
  +$str = UPLOAD_BODY $location, content => 4;
   print $str;