t/csv_utils.t

   1 use strict;
   2 use warnings;
   3 use Test::More qw(no_plan);
   4 use Test::Deep;
   5
   6 BEGIN {
   7   use_ok 'IronMunger::CSVUtils', ':all';
   8 }
   9
  10 use signatures;
  11
  12 sub filename ($fname, $means) {
  13   my $descr = join(' ', map +($_||'(undef)'), '=>', $fname, @$means);
  14   cmp_deeply(
  15     [ filename_to_name_and_nick($fname) ], $means,
  16     "Filename to name and nick for ${descr}",
  17   );
  18   is(
  19     name_and_nick_to_filename(@$means), $fname,
  20     "Name and nick to filename for ${descr}"
  21   );
  22 }
  23
  24 sub means (%means) { [ @means{qw(name nick)} ] }
  25
  26 filename 'my_Jess_Robinson.csv',
  27   means
  28     name => 'Jess Robinson';
  29
  30 filename 'my_drrho.csv',
  31   means
  32     nick => 'drrho';
  33
  34 filename 'my_Wolfgang_Wiese__xwolf_.csv',
  35   means
  36     name => 'Wolfgang Wiese',
  37     nick => 'xwolf';