Diff of /httpd/test/trunk/perl-framework/t/modules/proxy.t

Parent Directory | Revision Log | Patch

--- httpd/test/trunk/perl-framework/t/modules/proxy.t	2004/12/01 13:14:57	109338
+++ httpd/test/trunk/perl-framework/t/modules/proxy.t	2004/12/01 13:26:15	109339
@@ -6,19 +6,31 @@ use Apache::TestRequest;
 use Apache::TestUtil;
 use Apache::TestConfig ();
 
-plan tests => 6, need_module 'proxy';
+plan tests => 8, need_module 'proxy';
 
 Apache::TestRequest::module("proxy_http_reverse");
+Apache::TestRequest::user_agent(requests_redirectable => 0);
 
 my $r = GET("/reverse/");
 ok t_cmp($r->code, 200, "reverse proxy to index.html");
 ok t_cmp($r->content, qr/^welcome to /, "reverse proxied body");
 
-$r = GET("/reverse/modules/cgi/env.pl");
-ok t_cmp($r->code, 200, "reverse proxy to env.pl");
-ok t_cmp($r->content, qr/^APACHE_TEST_HOSTNAME = /, "reverse proxied env.pl response");
-
-$r = GET("/reverse/modules/cgi/env.pl?reverse-proxy");
-ok t_cmp($r->code, 200, "reverse proxy with query string");
-ok t_cmp($r->content, qr/QUERY_STRING = reverse-proxy\n/s, "reverse proxied query string OK");
-
+if (have_module('cgi')) {
+    $r = GET("/reverse/modules/cgi/env.pl");
+    ok t_cmp($r->code, 200, "reverse proxy to env.pl");
+    ok t_cmp($r->content, qr/^APACHE_TEST_HOSTNAME = /, "reverse proxied env.pl response");
+    
+    $r = GET("/reverse/modules/cgi/env.pl?reverse-proxy");
+    ok t_cmp($r->code, 200, "reverse proxy with query string");
+    ok t_cmp($r->content, qr/QUERY_STRING = reverse-proxy\n/s, "reverse proxied query string OK");
+} else {
+    skip "skipping tests without mod_cgi" foreach(1..4);
+}
+
+if (have_module('alias')) {
+    $r = GET("/reverse/perm");
+    ok t_cmp($r->code, 301, "reverse proxy of redirect");
+    ok t_cmp($r->header("Location"), qr{http://[^/]*/reverse/alias}, "reverse proxy rewrote redirect");
+} else {
+    skip "skipping tests without mod_alias" foreach (1..2);
+}