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

Reply via email to