projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
19e86e2
)
Show value of $fastslow on failure
author
Michael G. Schwern
<schwern@pobox.com>
Tue, 18 Dec 2001 00:58:18 +0000
(19:58 -0500)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 18 Dec 2001 14:03:31 +0000
(14:03 +0000)
Message-ID: <
20011218055818
.GC4362@blackrider>
p4raw-id: //depot/perl@13754
lib/Benchmark.t
patch
|
blob
|
history
diff --git
a/lib/Benchmark.t
b/lib/Benchmark.t
index
2b5e1b4
..
22a91bc
100644
(file)
--- 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");