stas 01/12/10 00:37:55
Modified: perl-framework/Apache-Test/lib/Apache TestSmoke.pm
Log:
- make sure that httpd is down before starting the tests
- don't die on failing t/TEST under 5.6.1, since it's normal if there are
test failures.
Revision Changes Path
1.3 +6 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm
Index: TestSmoke.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- TestSmoke.pm 2001/12/10 06:32:57 1.2
+++ TestSmoke.pm 2001/12/10 08:37:55 1.3
@@ -119,6 +119,9 @@
sub run {
my($self) = shift;
+ # make sure that there the server is down
+ $self->kill_proc();
+
$self->report_start();
my $iter = 0;
while ($iter++ < $self->{run_iter}) {
@@ -289,7 +292,9 @@
#error "$1: $2";
last;
}
- close $pipe or die "bad netstat: $! $?";
+ # it's normal for $command to exit with a failure status if tests
+ # fail, so we don't die/report it
+ close $pipe;
$self->kill_proc();
return $bad;
