2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 &message
("Check the csv importer.");
10 &test_csv_format_guessing
11 (data
=> <<DATA, format => sub { /^d.*m.*y.*$/i; } );
18 &test_csv_format_guessing
19 (data
=> <<DATA, format => sub { /^m.*d.*y.*$/i; } );
26 &test_csv_format_guessing
27 (data
=> <<DATA, format => sub { /^y.*m.*d.*$/i; } );
32 print STDERR
"Pass\n";