dougm 01/12/04 14:11:42
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
support t/TEST -ping=block -run ...
Revision Changes Path
1.70 +3 -2
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -r1.69 -r1.70
--- TestRun.pm 2001/11/22 03:11:38 1.69
+++ TestRun.pm 2001/12/04 22:11:42 1.70
@@ -621,6 +621,7 @@
my $server = $test_config->server;
my $pid = $server->ping;
my $name = $server->{name};
+ my $exit = not $self->{opts}->{'run-tests'}; #support t/TEST -ping=block
-run ...
if ($pid) {
if ($pid == -1) {
@@ -631,7 +632,7 @@
my $version = $server->{version};
warning "server $name running (pid=$pid, version=$version)";
}
- return 1;
+ return $exit;
}
my $opt = $self->{opts}->{ping} || '';
@@ -657,7 +658,7 @@
warning "no server is running on $name";
}
- return 1; #means call exit()
+ return $exit; #means call exit() if true
}
sub test_inc {
