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

[jwoolley]

jwoolley    02/02/24 15:07:06

  Modified:    perl-framework/t/ssl http.t
  Log:
  This test is failing for me.  This gives slightly more verbose -v output.
  
  Revision  Changes    Path
  1.7       +4 -1      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.6
  retrieving revision 1.7
  diff -u -d -u -r1.6 -r1.7
  --- http.t    22 Dec 2001 01:30:19 -0000      1.6
  +++ http.t    24 Feb 2002 23:07:06 -0000      1.7
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   use Apache::Test;
   use Apache::TestRequest;
  +use Apache::TestUtil;
   
   #verify we can send an non-ssl http request to the ssl port
   #without dumping core.
  @@ -27,6 +28,8 @@
   print "GET $rurl\n";
   
   my $res = GET($url);
  -ok $res->code == 400; #HTTP_BAD_REQUEST
  +ok t_cmp(400,
  +         $res->code,
  +         "Expected bad request from 'GET $rurl'");