run with arbitrary CSV file
authorDobrica Pavlinusic <dpavlin@rot13.org>
Fri, 10 Dec 2010 13:01:25 +0000 (14:01 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Fri, 10 Dec 2010 13:01:25 +0000 (14:01 +0100)
t/MojoFacets-Import-CSV.t

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