jorton 2004/10/25 00:09:00
Modified: perl-framework/t/modules rewrite.t
perl-framework/t/conf extra.conf.in
Log:
Test reverse-proxy and QSA flag.
Revision Changes Path
1.16 +7 -2 httpd-test/perl-framework/t/modules/rewrite.t
Index: rewrite.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/modules/rewrite.t,v
retrieving revision 1.15
retrieving revision 1.16
diff -d -w -u -r1.15 -r1.16
--- rewrite.t 24 Oct 2004 22:04:47 -0000 1.15
+++ rewrite.t 25 Oct 2004 07:09:00 -0000 1.16
@@ -14,7 +14,7 @@
my @url = qw(forbidden gone perm temp);
my $r;
-plan tests => @map * @num + 8, need_module 'rewrite';
+plan tests => @map * @num + 10, need_module 'rewrite';
foreach (@map) {
foreach my $n (@num) {
@@ -78,6 +78,11 @@
chomp $r;
ok t_cmp($r, qr/QUERY_STRING = horse=trigger\n/s, "QUERY_STRING passed
OK");
+ $r = GET("/modules/rewrite/proxy-qsa.html?bloo=blar");
+ ok t_cmp($r->code, 200, "proxy/QSA test success");
+
+ ok t_cmp($r->as_string, qr/QUERY_STRING = foo=bar\&bloo=blar\n/s,
+ "proxy/QSA test appended args correctly");
} else {
- skip "Skipping rewrite QUERY_STRING test; missing proxy or CGI module"
foreach (1..3);
+ skip "Skipping rewrite QUERY_STRING test; missing proxy or CGI module"
foreach (1..5);
}
1.59 +3 -0 httpd-test/perl-framework/t/conf/extra.conf.in
Index: extra.conf.in
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/conf/extra.conf.in,v
retrieving revision 1.58
retrieving revision 1.59
diff -d -w -u -r1.58 -r1.59
--- extra.conf.in 24 Oct 2004 22:04:47 -0000 1.58
+++ extra.conf.in 25 Oct 2004 07:09:00 -0000 1.59
@@ -187,6 +187,9 @@
## Query-string append
RewriteRule ^qsa.html$
http://@SERVERNAME@:@PORT@/modules/cgi/env.pl?foo=bar [QSA,L]
+ ## Proxy and QSA
+ RewriteRule ^proxy-qsa.html$
http://@SERVERNAME@:@PORT@/modules/cgi/env.pl?foo=bar [QSA,L,P]
+
</Directory>
### Proxy pass-through to env.pl
