test/t5800-csv-date.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 &message ("Check the csv importer.");
   9
  10 &test_csv_format_guessing
  11     (data => <<DATA, format => sub { /^d.*m.*y.*$/i; } );
  12 "Date"
  13 "1/2/3"
  14 "1/2/2000"
  15 "31/12/2000"
  16 DATA
  17
  18 &test_csv_format_guessing
  19     (data => <<DATA, format => sub { /^m.*d.*y.*$/i; } );
  20 "Date"
  21 "1/2/3"
  22 "1/2/2000"
  23 "12/31/2000"
  24 DATA
  25
  26 &test_csv_format_guessing
  27     (data => <<DATA, format => sub { /^y.*m.*d.*$/i; } );
  28 "Date"
  29 "2000-12-01"
  30 DATA
  31
  32 print STDERR "Pass\n";