From: David Golden <dagolden@cpan.org>
Date: Fri, 2 Oct 2009 00:51:30 +0000 (-0400)
Subject: Make t/harness have non-zero exit if tests fail
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f483babb422bfc83607d05f841bedb2e7366ed9a;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/t/harness b/t/harness
index d5099bf..88a7bfa 100644
--- 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;