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