cvs commit: modperl-2.0/t/response/TestModules cgiupload.pm

[dougm]

dougm       01/05/07 22:19:47

  Added:       t/modules cgiupload.t
               t/response/TestModules cgiupload.pm
  Log:
  add CGI.pm fileupload tests that actually use some files
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/modules/cgiupload.t
  
  Index: cgiupload.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestRequest;
  
  plan tests => 2, \&have_lwp;
  
  my $location = "/TestModules::cgiupload";
  
  my $filename;
  my $pod = 'pod/perlfunc.pod';
  
  for (@INC) {
      if (-e "$_/$pod") {
          $filename = "$_/$pod";
          last;
      }
  }
  
  $filename ||= '../pod/modperl_2.0.pod';
  
  for (1,2) {
      my $str = UPLOAD_BODY $location, filename => $filename;
  
      ok -s $filename == length($str);
  }
  
  
  
  1.1                  modperl-2.0/t/response/TestModules/cgiupload.pm
  
  Index: cgiupload.pm
  ===================================================================
  package TestModules::cgiupload;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::compat ();
  use CGI ();
  
  sub handler {
      my $r = shift;
  
      my $cgi = CGI->new;
  
      my $file = $cgi->param('filename');
  
      while (<$file>) {
          print;
      }
  
      Apache::OK;
  }
  
  1;
  __END__
  SetHandler perl-script
  PerlOptions +GlobalRequest