t/flip.t - libautobox-core-perl (HEAD)

Tree @HEAD (Download .tar.gz)

..
added.t
array-slice.t
bless.t
center.t
chomp.t
chop.t
chr.t
concat.t
crypt.t
curry.t
each.t
elements.t
elems.t
first_index.t
flatten.t
flip.t
for.t
foreach.t
grep.t
head.t
index.t
join.t
keys.t
last_index.t
lc.t
lcfirst.t
length.t
m.t
map.t
nm.t
number.t
numeric.t
ord.t
pack.t
pop.t
print.t
push.t
quotemeta.t
range.t
ref.t
reverse.t
rindex.t
s.t
say.t
scalar.t
shift.t
size.t
slice.t
sort.t
split.t
sprintf.t
strip.t
substr.t
synopsis.t
system.t
tail.t
uc.t
ucfirst.t
undef.t
unpack.t
unshift.t
values.t
vec.t

flip.t @HEAD — raw · history · blame

#!/usr/bin/env perl
use Test::More tests => 2;
use autobox::Core;

my %hash = ( 1 => 'foo', 3 => 'bar' );
my $f;

is_deeply( $f = %hash->flip, { foo => 1, bar => 3 } );

my %f = %hash->flip;

is_deeply( \%f, { foo => 1, bar => 3 }, "Returns hash in list context" );

my %nested = ( 1 => { foo => 'bar' }, 2 => 'bar' );