Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (11 sloc) 0.36 kB
#!/usr/bin/perl
use perl5i::latest;
use Test::More;
note "perl5ifaq entry"; {
my %hash1 = (foo => 23, bar => 42, biff => 99);
my %hash2 = ( bar => 99, biff => 42, yiff => 23);
my @keys = (%hash1->keys, %hash2->keys);
my @uniq = @keys->uniq;
is_deeply scalar @uniq->sort, scalar [qw(foo bar biff yiff)]->sort;
}
done_testing;
Jump to Line
Something went wrong with that request. Please try again.