diff options
author | David Mitchell <davem@iabyn.com> | 2013-06-13 08:54:35 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2013-06-13 08:54:35 +0100 |
commit | f12bac9728169abf3576360e2dfa20c3c121d7ca (patch) | |
tree | 78eb935b73891541f160033737a77334763c75e1 /lib/Benchmark.t | |
parent | b75763d608047188e76fcf5249a427b3ad13e87a (diff) | |
download | perl-f12bac9728169abf3576360e2dfa20c3c121d7ca.tar.gz |
Benchmark.t: make calibration a test
As a temporary measure, make a calibration failure not only a skip but a
failed test too, so I can see whether the real test fails more often in
smokes than the calibration.
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 6bf39f6e21..bb25cd85dc 100644 --- a/lib/Benchmark.t +++ b/lib/Benchmark.t @@ -8,7 +8,7 @@ BEGIN { use warnings; use strict; use vars qw($foo $bar $baz $ballast); -use Test::More tests => 196; +use Test::More tests => 197; use Benchmark qw(:all); @@ -114,6 +114,7 @@ my $calibration; $calibration = $td3/(3*$td1); # for diag output } +ok(!$INCONSISTENT_CLOCK, "temporary calibration test"); print "# Burning CPU to benchmark things; will take time...\n"; |