From: Michael G. Schwern <schwern@pobox.com>
Date: Tue, 18 Dec 2001 00:58:18 +0000 (-0500)
Subject: Show value of $fastslow on failure
X-Git-Tag: accepted/trunk/20130322.191538~28769
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e5967bfdebacb7d726b3c12bcfbdae225de9e2ff;p=platform%2Fupstream%2Fperl.git

Show value of $fastslow on failure
Message-ID: <20011218055818.GC4362@blackrider>

p4raw-id: //depot/perl@13754
---

diff --git a/lib/Benchmark.t b/lib/Benchmark.t
index 2b5e1b4..22a91bc 100644
--- a/lib/Benchmark.t
+++ b/lib/Benchmark.t
@@ -281,7 +281,8 @@ sub check_graph_consistency {
         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");