diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-29 01:53:45 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-29 01:53:45 +0000 |
| commit | f0a9308ef628eaba1881022f9f9ecee1154e92bf (patch) | |
| tree | c8960250d1a38b13a7a44fcc7192da1be5497f9b | |
| parent | db3b9414613c95081b0f8793cee8d2af39b76e86 (diff) | |
| download | perl-f0a9308ef628eaba1881022f9f9ecee1154e92bf.tar.gz | |
perl 5.003_04: lib/Test/Harness.pm
Add a return value to runtests - non-zero if all tests ran ok,
zero otherwise.
| -rw-r--r-- | lib/Test/Harness.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 387c40c128..7a164243be 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 { |