diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-06 07:48:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-06 07:48:01 +0000 |
| commit | 60af4b9327fbde3da3e3bd46b9fdaeae92b336db (patch) | |
| tree | a769d1b0fbd53feae0ee0c83c0ccfeff263ab704 | |
| parent | d1101dd3c4aa16f80d07586a75b258923c73a076 (diff) | |
| download | perl-60af4b9327fbde3da3e3bd46b9fdaeae92b336db.tar.gz | |
Make the 'slow ok' feature optional.
p4raw-id: //depot/perl@20025
| -rw-r--r-- | lib/Test/Harness.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 742ea4e148..609c23f325 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 |