test with first csv file in data dir
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 16 Oct 2010 14:57:00 +0000 (16:57 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 16 Oct 2010 14:57:00 +0000 (16:57 +0200)
t/MojoFacets-Import-CSV.t

index 4a1abb0..8c562e1 100755 (executable)
@@ -10,7 +10,10 @@ use lib 'lib';
 
 use_ok('MojoFacets::Import::CSV');
 
 
 use_ok('MojoFacets::Import::CSV');
 
-ok( my $o = MojoFacets::Import::CSV->new( path => 'data/ESB_izvadak-ziro.cp1250.csv' ), 'new' );
+my $csv = (glob 'data/*.csv')[0];
+diag "using $csv";
+
+ok( my $o = MojoFacets::Import::CSV->new( path => $csv ), 'new' );
 
 ok( my $data = $o->data, 'data' );
 diag dump($data);
 
 ok( my $data = $o->data, 'data' );
 diag dump($data);