From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 13 May 2002 21:47:38 +0000 (+0100)
Subject: Re: FreeBSD mostly OK. [nwc10@colon.colondot.net: Report /export/home/nwc10/Even... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab43e786dcd7c253fc4b61a6e15b36c18bb20fa3;p=p5sagit%2Fp5-mst-13.2.git

Re: FreeBSD mostly OK. [nwc10@colon.colondot.net: Report /export/home/nwc10/Even-Smoke/Smoke]
Message-ID: <20020513204738.GD310@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@16583
---

diff --git a/lib/Benchmark.t b/lib/Benchmark.t
index a12ae6e..d7533c3 100644
--- a/lib/Benchmark.t
+++ b/lib/Benchmark.t
@@ -12,7 +12,7 @@ use Test::More tests => 159;
 
 use Benchmark qw(:all);
 
-my $delta = 0.3;
+my $delta = 0.4;
 
 # Some timing ballast
 sub fib {
@@ -69,9 +69,13 @@ my $in_onesec = $onesec->iters;
 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)