diff options
Diffstat (limited to 'tests/test_driver.pl')
-rw-r--r-- | tests/test_driver.pl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/tests/test_driver.pl b/tests/test_driver.pl index e61da12..c5ee157 100644 --- a/tests/test_driver.pl +++ b/tests/test_driver.pl @@ -427,8 +427,7 @@ sub run_each_test $diffext = 'd'; $baseext = 'b'; $extext = ''; - } - else { + } else { $logext = 'log'; $diffext = 'diff'; $baseext = 'base'; @@ -459,12 +458,9 @@ sub run_each_test if (!defined($code)) { $suite_passed = 0; - if (length ($@)) - { + if (length ($@)) { warn "\n*** Test died ($testname): $@\n"; - } - else - { + } else { warn "\n*** Couldn't run $perl_testname\n"; } } @@ -490,7 +486,7 @@ sub run_each_test &rmfiles ($base_filename . &num_suffix ($i) ); } } - elsif ($code > 0) { + elsif (!defined $code || $code > 0) { $status = "FAILED ($tests_passed/$tests_run passed)"; } elsif ($code < 0) { |