diff options
-rw-r--r-- | test/run_tests.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/run_tests.pl b/test/run_tests.pl index f1fcbfc05d..148f2edc50 100644 --- a/test/run_tests.pl +++ b/test/run_tests.pl @@ -62,7 +62,9 @@ if ($list_mode) { @tests = map { abs2rel($_, rel2abs(curdir())); } @tests; my $harness = $TAP_Harness->new(\%tapargs); - $harness->runtests(sort @tests); + my $ret = $harness->runtests(sort @tests); + + exit $ret->has_errors if (ref($ret) eq "TAP::Parser::Aggregator"); } |