perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From cho...@apache.org
Subject cvs commit: modperl/t/net/perl/io redir1.pl redir2.pl
Date Mon, 16 Jul 2001 17:11:05 GMT
cholet      01/07/16 10:11:04

  Modified:    t/internal redirect.t
  Added:       t/net/perl/io redir1.pl redir2.pl
  Log:
  add internal_redirect test
  
  Revision  Changes    Path
  1.5       +12 -3     modperl/t/internal/redirect.t
  
  Index: redirect.t
  ===================================================================
  RCS file: /home/cvs/modperl/t/internal/redirect.t,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- redirect.t	1999/02/23 19:21:38	1.4
  +++ redirect.t	2001/07/16 17:11:04	1.5
  @@ -22,7 +22,7 @@
   
   my($request,$response);
   
  -my $tests = 3;
  +my $tests = 4;
   
   $CGI::VERSION ||= 0;
   
  @@ -64,6 +64,15 @@
   
   print "content=`", $response->content, "'\n";
   
  +#test internal redirect
  +$request = HTTP::Request->new(GET => "http://$net::httpserver$net::perldir/io/redir1.pl");
  +$response = $ua->request($request, undef, undef);
  +unless ($response->content eq 'OK') {
  +    print "not ";
  +}
  +print "ok 4\n";
  +print "content=`", $response->content, "'\n";
  +
   if ($qredirect) {
   
       $request = HTTP::Request->new(GET => $qredirect);
  @@ -73,7 +82,7 @@
           print "not ";
       }
   
  -    print "ok 4\n";
  +    print "ok 5\n";
   
       print "content=`", $response->content, "'\n";
   
  @@ -85,7 +94,7 @@
           print "not ";
       }
   
  -    print "ok 5\n";
  +    print "ok 6\n";
   
       print "content=`", $response->content, "'\n";
   
  
  
  
  1.1                  modperl/t/net/perl/io/redir1.pl
  
  Index: redir1.pl
  ===================================================================
  use strict;
  my $r = shift;
  $r->internal_redirect('/perl/io/redir2.pl');
  
  
  
  1.1                  modperl/t/net/perl/io/redir2.pl
  
  Index: redir2.pl
  ===================================================================
  use strict;
  my $r = shift;
  $r->send_http_header('text/plain');
  print "OK";
  
  
  

Mime
View raw message