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->()) {
