diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-05 05:31:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-05 05:31:19 +0000 |
| commit | 23c4718aa406373582ab86dab2e34b5dc04fdf98 (patch) | |
| tree | 8603a704bb7f6152763692378723cc3133c266d2 | |
| parent | 1cab015a482fdf2a2c78aa5bae65199be3b5e3c8 (diff) | |
| download | perl-23c4718aa406373582ab86dab2e34b5dc04fdf98.tar.gz | |
suppress fancy display when in verbose mode (suggested by
Paul Johnson <pjcj@transeda.com>)
p4raw-id: //depot/perl@3583
| -rw-r--r-- | lib/Test/Harness.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 3cc3749027..db3109a099 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -77,7 +77,8 @@ sub runtests { my $blank = (' ' x 77); my $leader = "$te" . '.' x (20 - length($te)); my $ml = ""; - $ml = "\r$blank\r$leader" if -t STDOUT and not $ENV{HARNESS_NOTTY}; + $ml = "\r$blank\r$leader" + if -t STDOUT and not $ENV{HARNESS_NOTTY} and not $verbose; print $leader; my $fh = new FileHandle; $fh->open($test) or print "can't open $test. $!\n"; @@ -117,7 +118,7 @@ sub runtests { my $this = $next; if (/^not ok\s*(\d*)/){ $this = $1 if $1 > 0; - print "${ml}NOK $this\n" if $ml; + print "${ml}NOK $this" if $ml; if (!$todo{$this}) { push @failed, $this; } else { |