use warnings;
use strict;
use vars qw($foo $bar $baz $ballast);
-use Test::More tests => 196;
+use Test::More tests => 195;
use Benchmark qw(:all);
-my $delta = 0.4;
+my $DELTA = 0.4;
# Some timing ballast
sub fib {
# Please don't trust the matching parentheses to be useful in this :-)
my $Default_Pattern = qr/$All_Pattern|$Noc_Pattern/;
+# see if the ratio of two integer values is within (1+$delta)
+
+sub cmp_delta {
+ my ($min, $max, $delta) = @_;
+ ($min, $max) = ($max, $min) if $max < $min;
+ return 0 if $min < 1; # avoid / 0
+ return $max/$min <= (1+$delta);
+}
+
my $t0 = new Benchmark;
isa_ok ($t0, 'Benchmark', "Ensure we can create a benchmark object");
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 ($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
- if ( abs(($td3 - 3*$td1) / $td3) > 0.7*$delta) {
- print "# INCONSISTENT CLOCK! - will skip timing-related tests\n";
- $INCONSISTENT_CLOCK = 1;
- }
-
-}
-
-
print "# Burning CPU to benchmark things; will take time...\n";
# We need to do something fairly slow in the coderef.
$in_onesec_adj *= (1/$cpu1); # adjust because may not have run for exactly 1s
print "# in_onesec_adj=$in_onesec_adj adjusted iterations\n";
-{
- my $difference = $in_onesec_adj - $estimate;
- my $actual = abs ($difference / $in_onesec_adj);
- SKIP: {
- skip("INCONSISTENT CLOCK") if $INCONSISTENT_CLOCK;
-
- cmp_ok($actual, '<=', $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");
- };
- }
-}
# I found that the eval'ed version was 3 times faster than the coderef.
# (now it has a different ballast value)
{
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");
{
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");