httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestServer.pm
Date Tue, 23 Apr 2002 15:58:03 GMT
dougm       02/04/23 08:58:03

  Modified:    perl-framework/Apache-Test/lib/Apache TestServer.pm
  Log:
  testing that server is up and running doesnt require that GET /index.html returns 200
  
  Revision  Changes    Path
  1.59      +4 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm
  
  Index: TestServer.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm,v
  retrieving revision 1.58
  retrieving revision 1.59
  diff -u -r1.58 -r1.59
  --- TestServer.pm	9 Apr 2002 09:51:07 -0000	1.58
  +++ TestServer.pm	23 Apr 2002 15:58:03 -0000	1.59
  @@ -520,7 +520,10 @@
   
       my $server_up = sub {
           local $SIG{__WARN__} = sub {}; #avoid "cannot connect ..." warnings
  -        Apache::TestRequest::GET_OK('/index.html');
  +        if (my $r = Apache::TestRequest::GET('/index.html')) {
  +            return $r->code;
  +        }
  +        0;
       };
   
       if ($server_up->()) {
  
  
  

Mime
View raw message