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 ok( my $o = MojoFacets::Import::CSV->new( path => 'data/ESB_izvadak-ziro.cp1250.csv' ), 'new' );
  14
  15 ok( my $data = $o->data, 'data' );
  16 diag dump($data);