jorton 2004/08/17 09:13:36
Modified: perl-framework/t/ssl proxy.t
perl-framework/t/htdocs/modules/cgi .cvsignore
Added: perl-framework/t/htdocs/modules/cgi nph-foldhdr.pl.PL
Log:
Add test for #30134.
Revision Changes Path
1.10 +7 -1 httpd-test/perl-framework/t/ssl/proxy.t
Index: proxy.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/proxy.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -d -w -u -r1.9 -r1.10
--- proxy.t 2 May 2002 19:25:52 -0000 1.9
+++ proxy.t 17 Aug 2004 16:13:35 -0000 1.10
@@ -30,7 +30,7 @@
}
}
-plan tests => (7 + $post_tests) * $num_modules - 5 * $num_http_backends,
+plan tests => (8 + $post_tests) * $num_modules - 5 * $num_http_backends,
[qw(mod_proxy proxy_http.c)];
for my $module (sort keys %frontend) {
@@ -47,6 +47,12 @@
t_cmp(200,
GET('/')->code,
"/ with $module ($scheme)");
+ };
+
+ sok {
+ t_cmp(200,
+ GET('/modules/cgi/nph-foldhdr.pl')->code,
+ "CGI script with folded headers");
};
if ($backend{$module} eq "https") {
1.7 +1 -0 httpd-test/perl-framework/t/htdocs/modules/cgi/.cvsignore
Index: .cvsignore
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/t/htdocs/modules/cgi/.cvsignore,v
retrieving revision 1.6
retrieving revision 1.7
diff -d -w -u -r1.6 -r1.7
--- .cvsignore 16 Jun 2004 17:11:57 -0000 1.6
+++ .cvsignore 17 Aug 2004 16:13:36 -0000 1.7
@@ -9,3 +9,4 @@
stderr3.pl
nph-stderr.pl
ranged.pl
+nph-foldhdr.pl
1.1
httpd-test/perl-framework/t/htdocs/modules/cgi/nph-foldhdr.pl.PL
Index: nph-foldhdr.pl.PL
===================================================================
# produces output with folded response headers
print "HTTP/1.0 200 OK\r\n";
for (1..500) {
print "X-Foo-Bar-$_:\n " . 'x'x$_ . "\n";
print "X-Bar-$_:\n gamm\r\n beta\n theta\r\n";
}
print "Content-type: \n text/plain\n\n";
print "hello, world";