diff options
| author | M. J. T. Guy <mjtg@cus.cam.ac.uk> | 2000-07-20 19:04:01 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-24 02:00:07 +0000 |
| commit | f767ed0d52787b5102686aa326c179b384bf3c6c (patch) | |
| tree | 2c566b101aadd19ffd5c94f6802df39659fd97c3 /lib/Test | |
| parent | 73396e077e98f6642c85f22af0d45fb838622755 (diff) | |
| download | perl-f767ed0d52787b5102686aa326c179b384bf3c6c.tar.gz | |
Use STDOUT consistently.
Subject: [ID 20000720.002] [PATCH] Consistency of Test::Harness output
Message-Id: <E13FJjt-0004Jh-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6424
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index aded0e91d7..36b5fa8a2d 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -140,12 +140,12 @@ sub runtests { $bonus++, $totbonus++ if $todo{$this}; } if ($this > $next) { - # warn "Test output counter mismatch [test $this]\n"; + # print "Test output counter mismatch [test $this]\n"; # no need to warn probably push @failed, $next..$this-1; } elsif ($this < $next) { #we have seen more "ok" lines than the number suggests - warn "Confused test output: test $this answered after test ", $next-1, "\n"; + print "Confused test output: test $this answered after test ", $next-1, "\n"; $next = $this; } $next = $this + 1; |