diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-17 19:58:18 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-18 14:03:31 +0000 |
| commit | e5967bfdebacb7d726b3c12bcfbdae225de9e2ff (patch) | |
| tree | b17eb33a11e879f51af95daab836fd62db311ac0 /lib/Benchmark.t | |
| parent | 19e86e2fbc37971c06cbb6405f0c209e2d10f3cf (diff) | |
| download | perl-e5967bfdebacb7d726b3c12bcfbdae225de9e2ff.tar.gz | |
Show value of $fastslow on failure
Message-ID: <20011218055818.GC4362@blackrider>
p4raw-id: //depot/perl@13754
Diffstat (limited to 'lib/Benchmark.t')
| -rw-r--r-- | lib/Benchmark.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Benchmark.t b/lib/Benchmark.t index 2b5e1b4fb3..22a91bc3f8 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"); |