diff options
Diffstat (limited to 'lib/Hash')
| -rw-r--r-- | lib/Hash/Util.t | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/Hash/Util.t b/lib/Hash/Util.t index 48cbc7c007..1c77728c27 100644 --- a/lib/Hash/Util.t +++ b/lib/Hash/Util.t @@ -6,7 +6,7 @@ BEGIN { chdir 't'; } } -use Test::More tests => 157; +use Test::More tests => 159; use strict; my @Exported_Funcs; @@ -274,5 +274,19 @@ like( $@, qr/^Attempt to access disallowed key 'I_DONT_EXIST' in a restricted ha } } +# Check clear works on locked empty hashes - SEGVs on 5.8.2. +{ + my %hash; + lock_hash(%hash); + %hash = (); + ok(keys(%hash) == 0, 'clear empty lock_hash() hash'); +} +{ + my %hash; + lock_keys(%hash); + %hash = (); + ok(keys(%hash) == 0, 'clear empty lock_keys() hash'); +} + my $hash_seed = hash_seed(); ok($hash_seed >= 0, "hash_seed $hash_seed"); |