view release on metacpan or  search on metacpan

t/02_base.t  view on Meta::CPAN

my %check = (
    '235' => 7,
    '23'  => 5,
    '25'  => 7,
);

my @keys = keys %hash;
is scalar( @keys ), 3, 'three keys in %hash';

is_deeply [ sort map { join '', @{$_} }@keys ], [ sort keys %check ], 'Check remaining keys';

while ( my ($key, $value) = each %hash ) {
    my $tmp_key = join '', @{$key};
    is $value, $check{$tmp_key}, "Check value for $key";
}

untie %hash;

done_testing();