cvs commit: httpd-test/perl-framework/t/ssl http.t

[jwoolley]

jwoolley    02/04/03 01:14:49

  Modified:    perl-framework/t/ssl http.t
  Log:
  Detect the current bug in mod_ssl [patch proposed but not yet committed]
  where you get a 400, but the error notes we tried to set didn't make
  it through to the client for some reason.
  
  Revision  Changes    Path
  1.10      +8 -3      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.9
  retrieving revision 1.10
  diff -u -d -u -r1.9 -r1.10
  --- http.t    2 Apr 2002 21:06:29 -0000       1.9
  +++ http.t    3 Apr 2002 09:14:48 -0000       1.10
  @@ -14,10 +14,10 @@
   if (Apache::TestConfig::WIN32) {
       print "\n#ap_core_translate() chokes on ':' here\n",
             "#where r->uri = /mod_ssl:error:HTTP-request\n";
  -    @todo = (todo => [1]);
  +    @todo = (todo => [2]);
   }
   
  -plan tests => 1, @todo;
  +plan tests => 2, @todo;
   
   my $config = Apache::Test::config();
   my $ssl_module = $config->{vars}->{ssl_module_name};
  @@ -27,6 +27,11 @@
   my $res = GET($rurl);
   ok t_cmp(400,
            $res->code,
  -         "Expected bad request from 'GET $rurl'");
  +         "Expected bad request from 'GET $rurl'"
  +        );
   
  +ok t_cmp(qr{speaking plain HTTP to an SSL-enabled server port},
  +         $res->content,
  +         "that error document contains the proper hint"
  +        );