~ubuntu-branches/ubuntu/trusty/libperl5i-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to t/flip.t

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

t/flip.t

 

1

#!/usr/bin/env perl

 

2

 

 

3

use perl5i::latest;

 

4

 

 

5

use lib 't/lib';

 

6

use Test::More;

 

7

use Test::perl5i;

 

8

 

 

9

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

 

10

my $f;

 

11

 

 

12

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

 

13

 

 

14

my %f = %hash->flip;

 

15

 

 

16

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

 

17

 

 

18

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

 

19

 

 

20

dies_ok  { %nested->flip } 'Dies if values are not valid hash keys';

 

21

 

 

22

done_testing;

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1