if ($slowrate < $fastrate) {
pass ("slow rate is less than fast rate");
ok ($slowfast < 0 && $slowfast > -100,
- "slowfast should be less than zero, and > -100");
+ "slowfast should be less than zero, and > -100") ||
+ print STDERR "# slowfast $slowfast\n";
ok ($fastslow > 0, "fastslow should be > 0") ||
print STDERR "# fastslow $fastslow\n";
} else {
{
select(OUT);
my $start = times;
- my $chart = cmpthese( -0.1, { a => "++\$i", b => "\$i *= 2" } ) ;
+ my $chart = cmpthese( -0.1, { a => "++\$i", b => "\$i = sqrt(\$i++)" } ) ;
my $end = times;
select(STDOUT);
ok (($end - $start) > 0.05, "benchmarked code ran for over 0.05 seconds");