Re: Truly randomized keys() in perl 5.17 - a challenge for testing?

sort keys %hash

# Generation Code
my $newkey = &generateRandomHashKey();
# Store keys as generated in original order
push @Keylist, $newkey;
$hash{$newkey} = &generateData();
# ...
# Testing Code
foreach my $testkey (@Keylist)
{
    # Perform test against $hash{$testkey};
}
[download]

Comment on Re: Truly randomized keys() in perl 5.17 - a challenge for testing? Download Code