summaryrefslogtreecommitdiff
path: root/lib/Benchmark.t
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2013-06-13 08:54:35 +0100
committerDavid Mitchell <davem@iabyn.com>2013-06-13 08:54:35 +0100
commitf12bac9728169abf3576360e2dfa20c3c121d7ca (patch)
tree78eb935b73891541f160033737a77334763c75e1 /lib/Benchmark.t
parentb75763d608047188e76fcf5249a427b3ad13e87a (diff)
downloadperl-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.t3
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";