perl 5.003_04: lib/Test/Harness.pm
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Thu, 29 Aug 1996 01:53:45 +0000 (01:53 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Thu, 29 Aug 1996 01:53:45 +0000 (01:53 +0000)
Add a return value to runtests - non-zero if all tests ran ok,
zero otherwise.

lib/Test/Harness.pm

index 387c40c..7a16424 100644 (file)
@@ -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 {