t/MojoFacets-Import-CSV.t

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7 use Data::Dump qw(dump);
   8
   9 use lib 'lib';
  10
  11 use_ok('MojoFacets::Import::CSV');
  12
  13 my $csv = $ARGV[0] || (glob 'data/*.csv')[0];
  14 diag "using $csv";
  15
  16 ok( my $o = MojoFacets::Import::CSV->new( path => $csv ), 'new' );
  17
  18 ok( my $data = $o->data, 'data' );
  19 diag dump($data);