t/plagger_loader.t

   1 use strict;
   2 use warnings;
   3 use Test::More qw(no_plan);
   4
   5
   6 BEGIN {
   7   use_ok aliased => 'IronMunger::PlaggerLoader';
   8 }
   9
  10 my @names = ('Jess Robinson', 'Justin DeVuyst');
  11
  12 my @files = ('my_Jess_Robinson.csv', 'my_Justin_DeVuyst.csv');
  13
  14 ok(my $loader = PlaggerLoader->new(dir => 't/csv'), 'build loader');
  15
  16 my @target = $loader->_target_files;
  17
  18 cmp_ok(@target, '==', 2, '2 files in CSV directory');
  19
  20 is_deeply(
  21   [ sort map { ($_->splitpath)[-1] } @target ], \@files,
  22   'filenames ok'
  23 );