This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Memoize: fix test timing
authorDavid Mitchell <davem@iabyn.com>
Tue, 12 Nov 2019 13:18:43 +0000 (13:18 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 12 Nov 2019 13:33:16 +0000 (13:33 +0000)
commitf0206e819891ea9f375f3443e0a4d3ccf02acac8
tree7fd6acc6f88b83a9748992f5ff94854bd6b39104
parent5fd49982f066fe0bba7131745725d7f61278b51c
Memoize: fix test timing

NB: this distro is upstream-CPAN, but there hasn't been a new release in
7 years, so I'm patching this intermittently false positive test
directly in blead.

I reported this issue 4 years ago as

    https://rt.cpan.org/Public/Bug/Display.html?id=108382

cpan/Memoize/t/speed.t occasionally fails tests 2 and 5 in bleadperl
smokes.

This is because the time deltas (using "time") have a granularity of 1
sec. The basic test is: run fib() for at least 10 secs, then run again
with memoize and check that it takes less than 1/10th of that time.

However, the first measurement may be exactly 10 secs, while the second
run (no matter how speedy) may be 1 sec if it passes over a tick
boundary. 0.001 is then added to it to avoid division by zero.

The test is ($ELAPSED/$ELAPSED2 > 10).  With $ELAPSED = 10 and
$ELAPSED2 = 1.001, the test fails. The easy fix is to run for at least
11 secs rather than 10.
cpan/Memoize/t/speed.t