Make t/harness have non-zero exit if tests fail

diff --git a/t/harness b/t/harness
index d5099bf..88a7bfa 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -256,5 +256,5 @@ $h->callback(
             }
             );
 
-$h->runtests(@tests);
-exit(0);
+my $agg = $h->runtests(@tests);
+exit $agg->has_errors ? 1 : 0;