X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f12bac9728169abf3576360e2dfa20c3c121d7ca..52e0d6178130057496ae4d514887bbad0481cbad:/lib/Benchmark.t

diff --git a/lib/Benchmark.t b/lib/Benchmark.t
index bb25cd8..7706bba 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 => 197;
+use Test::More tests => 195;
 
 use Benchmark qw(:all);
 
@@ -56,67 +56,6 @@ timeit( 1, sub { $foo = @_ });
 is ($foo, 0, "benchmarked code called without arguments");
 
 
-print "# Burning CPU to see if clock is consistent...\n";
-
-# Run some code for approx 3 secs, then for 1 sec. If the first doesn't
-# take appoex 3 times longer than the second, then skip any tests which
-# require a consistent clock
-
-my $INCONSISTENT_CLOCK = 0;
-my $calibration;
-
-{
-    my ($t0, $t1, $tdelta);
-
-    $t0 = times; 1 while times == $t0; # wait for OS clock to tick
-
-    # guess approx n for code to run for 1 sec
-    my $n = 1;
-    while ($n < 1_000_000_000) { # eventually stop in worst case
-	$t0 = times;
-	fib($ballast) for 1..$n;
-	$t1 = times;
-	$tdelta = ($t1 - $t0);
-	last if ($tdelta) >= 1.0;
-	$n *= 2;
-    }
-    print "# did $n iterations in $tdelta sec\n";
-
-    # adjust n for exactly one second
-    $n /= $tdelta;
-
-    # now run enough loops for approx 3 secs
-
-    $t0 = times; 1 while times == $t0; # wait for OS clock to tick
-    $t0 = times;
-    fib($ballast) for 1..($n*3);
-    $t1 = times;
-    my $td3 = ($t1 - $t0);
-    print "# approx 3 sec delta is $td3 secs\n";
-
-    # now run enough loops for approx 1 sec
-
-    $t0 = times; 1 while times == $t0; # wait for OS clock to tick
-    $t0 = times;
-    fib($ballast) for 1..$n;
-    $t1 = times;
-    my $td1 = ($t1 - $t0);
-    print "# approx 1 sec delta is $td1 secs\n";
-
-    # we use 0.7 of $DELTA so that we err on the side of assuming
-    # a bad clock and skip tests; otherwise we might be just within the
-    # delta here, and just outside the delta on tests, and so get random
-    # failures
-    unless (cmp_delta(3*$td1, $td3, 0.7*$DELTA)) {
-	print "# INCONSISTENT CLOCK! - will skip timing-related tests\n";
-	$INCONSISTENT_CLOCK = 1;
-    }
-    $calibration = $td3/(3*$td1); # for diag output
-
-}
-ok(!$INCONSISTENT_CLOCK, "temporary calibration test");
-
-
 print "# Burning CPU to benchmark things; will take time...\n";
 
 # We need to do something fairly slow in the coderef.
@@ -154,24 +93,6 @@ my $in_onesec_adj = $in_onesec;
 $in_onesec_adj *= (1/$cpu1); # adjust because may not have run for exactly 1s
 print "# in_onesec_adj=$in_onesec_adj adjusted iterations\n";
 
-SKIP: {
-    skip("INCONSISTENT CLOCK") if $INCONSISTENT_CLOCK;
-
-    ok(cmp_delta($in_onesec_adj, $estimate, $DELTA),
-		"is $in_onesec_adj within $DELTA of estimate ($estimate)?")
-    or do {
-	diag("  in_threesecs     = $in_threesecs");
-	diag("  in_threesecs_adj = $in_threesecs_adj");
-	diag("  cpu3             = $cpu3");
-	diag("  sys3             = $sys3");
-	diag("  estimate         = $estimate");
-	diag("  in_onesec        = $in_onesec");
-	diag("  in_onesec_adj    = $in_onesec_adj");
-	diag("  cpu1             = $cpu1");
-	diag("  sys1             = $sys1");
-	diag("  calibration      = $calibration");
-    };
-}
 
 # I found that the eval'ed version was 3 times faster than the coderef.
 # (now it has a different ballast value)
@@ -480,7 +401,9 @@ sub check_graph {
 {
     select(OUT);
     my $start = times;
-    my $chart = cmpthese( -0.1, { a => "++\$i", b => "\$i = sqrt(\$i++)" }, "auto" ) ;
+    my $chart = cmpthese( -0.1, { a => "\$i = sqrt(\$i++) * sqrt(\$i)",
+                                  b => "\$i = sqrt(\$i++)",
+                                }, "auto" ) ;
     my $end = times;
     select(STDOUT);
     ok (($end - $start) > 0.05, "benchmarked code ran for over 0.05 seconds");
@@ -502,7 +425,8 @@ sub check_graph {
 {
     select(OUT);
     my $start = times;
-    my $chart = cmpthese( -0.1, { a => "++\$i", b => "\$i = sqrt(\$i++)" } ) ;
+    my $chart = cmpthese( -0.1, { a => "\$i = sqrt(\$i++) * sqrt(\$i)",
+                                  b => "\$i = sqrt(\$i++)" });
     my $end = times;
     select(STDOUT);
     ok (($end - $start) > 0.05, "benchmarked code ran for over 0.05 seconds");