diff --git a/test/run_tests.pl b/test/run_tests.pl
index aa1dba024236bbc51fa0663e9b0a6ab41e1edde8..a04fd98a0af2ced606f9421954bc953068831cdd 100644
--- a/test/run_tests.pl
+++ b/test/run_tests.pl
@@ -82,7 +82,10 @@ foreach my $arg (@ARGV ? @ARGV : ('alltests')) {
 }
 
 my $harness = $TAP_Harness->new(\%tapargs);
-$harness->runtests(map { abs2rel($_, rel2abs(curdir())); } sort keys %tests);
+my $ret = $harness->runtests(map { abs2rel($_, rel2abs(curdir())); }
+                                 sort keys %tests);
+
+exit $ret->has_errors if (ref($ret) eq "TAP::Parser::Aggregator");
 
 sub find_matching_tests {
     my ($glob) = @_;