[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-cvs
Subject:    cvs commit: modperl/t/net/perl/io redir1.pl redir2.pl
From:       cholet () apache ! org
Date:       2001-07-16 17:11:05
[Download RAW message or body]

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";
  
  
  

[prev in list] [next in list] [prev in thread] [next in thread]