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