Benchmark.t: make calibration a test
authorDavid Mitchell <davem@iabyn.com>
Thu, 13 Jun 2013 07:54:35 +0000 (08:54 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 13 Jun 2013 07:54:35 +0000 (08:54 +0100)
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.

lib/Benchmark.t

index 6bf39f6..bb25cd8 100644 (file)
@@ -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";