From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 29 Aug 1996 01:53:45 +0000 (+0000)
Subject: perl 5.003_04: lib/Test/Harness.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0a9308ef628eaba1881022f9f9ecee1154e92bf;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_04: lib/Test/Harness.pm

Add a return value to runtests - non-zero if all tests ran ok,
zero otherwise.
---

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 387c40c..7a16424 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -168,6 +168,8 @@ sub runtests {
 	}
     }
     printf("Files=%d,  Tests=%d, %s\n", $files, $totmax, timestr($t_total, 'nop'));
+
+    return ($bad == 0 && $totmax) ;
 }
 
 sub corestatus {