httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jor...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/ssl http.t
Date Wed, 18 Feb 2004 16:51:24 GMT
jorton      2004/02/18 08:51:24

  Modified:    perl-framework/t/ssl http.t
  Log:
  Enable APACHE_TEST_HTTP_09_OK to prevent TestRequest croaking on an
  "HTTP/0.9" response, and skip the status-code test in that case.
  
  Revision  Changes    Path
  1.11      +15 -4     httpd-test/perl-framework/t/ssl/http.t
  
  Index: http.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/http.t,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -w -d -u -r1.10 -r1.11
  --- http.t	3 Apr 2002 09:14:48 -0000	1.10
  +++ http.t	18 Feb 2004 16:51:24 -0000	1.11
  @@ -4,6 +4,11 @@
   use Apache::TestRequest;
   use Apache::TestUtil;
   
  +BEGIN {
  +   # prevent TestRequest from croaking on an HTTP/0.9 response
  +   $ENV{APACHE_TEST_HTTP_09_OK} = 1;
  +}
  +
   #verify we can send an non-ssl http request to the ssl port
   #without dumping core.
   
  @@ -25,10 +30,16 @@
   my $rurl = "http://$hostport$url";
   
   my $res = GET($rurl);
  +my $proto = $res->protocol;
  +
  +if ($proto and $proto eq "HTTP/0.9") {
  +    skip "server gave HTTP/0.9 response";
  +} else {    
   ok t_cmp(400,
            $res->code,
            "Expected bad request from 'GET $rurl'"
           );
  +}
   
   ok t_cmp(qr{speaking plain HTTP to an SSL-enabled server port},
            $res->content,
  
  
  

Mime
View raw message