Change 13754 by jhi@alpha on 2001/12/18 14:03:31
Subject: [PATCH lib/Benchmark.t] Show value of $fastslow on failure
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Tue, 18 Dec 2001 00:58:18 -0500
Message-ID: <20011218055818.GC4362@blackrider>
Affected files ...
.... //depot/perl/lib/Benchmark.t#4 edit
Differences ...
==== //depot/perl/lib/Benchmark.t#4 (text) ====
Index: perl/lib/Benchmark.t
--- perl/lib/Benchmark.t.~1~ Tue Dec 18 07:15:05 2001
+++ perl/lib/Benchmark.t Tue Dec 18 07:15:05 2001
@@ -281,7 +281,8 @@
pass ("slow rate is less than fast rate");
ok ($slowfast < 0 && $slowfast > -100,
"slowfast should be less than zero, and > -100");
- ok ($fastslow > 100, "fastslow should be > 100");
+ ok ($fastslow > 100, "fastslow should be > 100") ||
+ print STDERR "# fastslow $fastslow\n";
} else {
is ($slowrate, $fastrate,
"slow rate isn't less than fast rate, so should be the same");
End of Patch.
