diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-01-13 15:58:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-13 17:12:04 +0000 |
| commit | 95d5be9e084881614c83fcb2812a47fe116fb0e6 (patch) | |
| tree | 111714766610c115fc55dd840a77a3cfbf8be390 /lib | |
| parent | c8d2171d9a4e444fcbc15a9762adc552285c7cab (diff) | |
| download | perl-95d5be9e084881614c83fcb2812a47fe116fb0e6.tar.gz | |
Re: [FAIL] Benchmark.t intermittent failure
Message-ID: <20020113155833.C314@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@14237
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Benchmark.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Benchmark.t b/lib/Benchmark.t index 25a3478c1b..dddce3dcb3 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.2; +my $delta = 0.3; # Some timing ballast sub fib { @@ -59,7 +59,7 @@ my $in_threesecs = $threesecs->iters; print "# $in_threesecs iterations\n"; ok ($in_threesecs > 0, "iters returned positive iterations"); -my $estimate = int ($in_threesecs / 3); +my $estimate = int (100 * $in_threesecs / 3) / 100; print "# from the 3 second run estimate $estimate iterations in 1 second...\n"; $baz = 0; my $onesec = countit(1, $coderef); |