3 use Test::More qw(no_plan);
7 use_ok 'IronMunger::CSVUtils', ':all';
12 sub filename ($fname, $means) {
13 my $descr = join(' ', map +($_||'(undef)'), '=>', $fname, @$means);
15 [ filename_to_name_and_nick($fname) ], $means,
16 "Filename to name and nick for ${descr}",
19 name_and_nick_to_filename(@$means), $fname,
20 "Name and nick to filename for ${descr}"
24 sub means (%means) { [ @means{qw(name nick)} ] }
26 filename 'my_Jess_Robinson.csv',
28 name => 'Jess Robinson';
30 filename 'my_drrho.csv',
34 filename 'my_Wolfgang_Wiese__xwolf_.csv',
36 name => 'Wolfgang Wiese',