Change 16583 by jhi@alpha on 2002/05/13 23:04:00
Subject: [PATCH] Re: FreeBSD mostly OK. [[EMAIL PROTECTED]: Report
/export/home/nwc10/Even-Smoke/Smoke]
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Mon, 13 May 2002 21:47:38 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Benchmark.t#10 edit
Differences ...
==== //depot/perl/lib/Benchmark.t#10 (text) ====
Index: perl/lib/Benchmark.t
--- perl/lib/Benchmark.t#9~15897~ Sat Apr 13 12:58:15 2002
+++ perl/lib/Benchmark.t Mon May 13 16:04:00 2002
@@ -12,7 +12,7 @@
use Benchmark qw(:all);
-my $delta = 0.3;
+my $delta = 0.4;
# Some timing ballast
sub fib {
@@ -69,9 +69,13 @@
print "# $in_onesec iterations\n";
ok ($in_onesec > 0, "iters returned positive iterations");
-my $difference = $in_onesec - $estimate;
-ok (abs ($difference / $in_onesec) < $delta,
- "is $in_onesec within $delta of estimate ($estimate)");
+{
+ my $difference = $in_onesec - $estimate;
+ my $actual = abs ($difference / $in_onesec);
+ ok ($actual < $delta, "is $in_onesec within $delta of estimate ($estimate)");
+ print "# $in_onesec is between " . ($delta / 2) .
+ " and $delta of estimate. Not that safe.\n" if $actual > $delta/2;
+}
# I found that the eval'ed version was 3 times faster than the coderef.
# (now it has a different ballast value)
End of Patch.
