From: M. J. T. Guy <mjtg@cus.cam.ac.uk>
Date: Thu, 20 Jul 2000 18:04:01 +0000 (+0100)
Subject: Use STDOUT consistently.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f767ed0d52787b5102686aa326c179b384bf3c6c;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index aded0e9..36b5fa8 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;