diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-08 02:57:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-08 02:57:30 +0000 |
| commit | 2d684b7a4761469da36a1269159635371b372f53 (patch) | |
| tree | ec7afca315b47b827cdf201a310cbc7a8ae0fa7e /lib/Benchmark.t | |
| parent | bb7cd144522bb29ef145d3533b366a1934b911ea (diff) | |
| download | perl-2d684b7a4761469da36a1269159635371b372f53.tar.gz | |
More diagnostics from Nicholas Clark.
p4raw-id: //depot/perl@14592
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 dddce3dcb3..503463329e 100644 --- a/lib/Benchmark.t +++ b/lib/Benchmark.t @@ -280,7 +280,8 @@ sub check_graph_consistency { if ($slowrate < $fastrate) { pass ("slow rate is less than fast rate"); ok ($slowfast < 0 && $slowfast > -100, - "slowfast should be less than zero, and > -100"); + "slowfast should be less than zero, and > -100") || + print STDERR "# slowfast $slowfast\n"; ok ($fastslow > 0, "fastslow should be > 0") || print STDERR "# fastslow $fastslow\n"; } else { |