From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 6 Jul 2003 07:48:01 +0000 (+0000)
Subject: Make the 'slow ok' feature optional.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60af4b9327fbde3da3e3bd46b9fdaeae92b336db;p=p5sagit%2Fp5-mst-13.2.git

Make the 'slow ok' feature optional.

p4raw-id: //depot/perl@20025
---

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 742ea4e..609c23f 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -36,6 +36,8 @@ my $Ignore_Exitcode = $ENV{HARNESS_IGNORE_EXITCODE};
 
 my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};
 
+my $Ok_Slow = $ENV{HARNESS_OK_SLOW};
+
 $Strap = Test::Harness::Straps->new;
 
 @ISA = ('Exporter');
@@ -745,7 +747,7 @@ sub _print_ml {
 # For slow connections, we save lots of bandwidth by printing only once
 # per second.
 sub _print_ml_less {
-    if( $Last_ML_Print != time ) {
+    if( !$Ok_Slow || $Last_ML_Print != time ) {
         _print_ml(@_);
         $Last_ML_Print = time;
     }
@@ -1048,6 +1050,12 @@ output more frequent progress messages using carriage returns.  Some
 consoles may not handle carriage returns properly (which results in a
 somewhat messy output).
 
+=item C<HARNESS_OK_SLOW>
+
+If true, the C<ok> messages are printed out only every second.
+This reduces output and therefore may for example help testing
+over slow connections.
+
 =item C<HARNESS_PERL_SWITCHES>
 
 Its value will be prepended to the switches used to invoke perl on