In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b2ac59d1d0fda74d6612701d8316fe8dfb6a1b90?hp=511584e5bcba72901620201be6325bb31f1c68d0>
- Log ----------------------------------------------------------------- commit b2ac59d1d0fda74d6612701d8316fe8dfb6a1b90 Author: Yves Orton <[email protected]> Date: Tue Jun 27 16:36:57 2017 +0200 t/op/hash.t: fixup intermittently failing test ----------------------------------------------------------------------- Summary of changes: t/op/hash.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/op/hash.t b/t/op/hash.t index dc8fcc9871..6c9fa1b636 100644 --- a/t/op/hash.t +++ b/t/op/hash.t @@ -216,7 +216,7 @@ sub torture_hash { my $keys = pop @groups; ++$h->{$_} foreach @$keys; my (undef, $total) = validate_hash($desc, $h); - is($total, $total0, "bucket count is constant when rebuilding"); + ok($total == $total0 || $total == ($total0*2), "bucket count is expected size when rebuilding"); is(scalar %$h, pop @groups, "scalar keys is identical when rebuilding"); ++$h1->{$_} foreach @$keys; validate_hash("$desc copy", $h1); -- Perl5 Master Repository
