test/t5801-csv-number.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 { return $_ eq '0.00'; }, decimal => '.' );
  12 "Values"
  13 "123.45"
  14 "1.45"
  15 DATA
  16
  17 &test_csv_format_guessing
  18     (data => <<DATA, format => sub { return $_ eq '0.00'; }, decimal => ',' );
  19 "Values"
  20 "123,45"
  21 "1,45"
  22 DATA
  23
  24 &test_csv_format_guessing
  25     (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => '.' );
  26 "Values"
  27 "123.456"
  28 "1.45"
  29 DATA
  30
  31 &test_csv_format_guessing
  32     (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => ',' );
  33 "Values"
  34 "123,456"
  35 "1,45"
  36 DATA
  37
  38 &test_csv_format_guessing
  39     (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => '.', thousand => ',' );
  40 "Values"
  41 "123,456"
  42 "1.45"
  43 DATA
  44
  45 &test_csv_format_guessing
  46     (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => ',', thousand => '.' );
  47 "Values"
  48 "123.456"
  49 "1,45"
  50 DATA
  51
  52 &test_csv_format_guessing
  53     (data => <<DATA, format => sub { return $_ eq 'General'; } );
  54 "Values"
  55 "123.456"
  56 "234,567"
  57 DATA
  58
  59 &test_csv_format_guessing
  60     (data => <<DATA, format => sub { return $_ eq '0.000'; }, decimal => ',' );
  61 "Values"
  62 "0,456"
  63 DATA
  64
  65 &test_csv_format_guessing
  66     (data => <<DATA, format => sub { return $_ eq '0.000'; }, decimal => ',' );
  67 "Values"
  68 "-,456"
  69 DATA
  70
  71 &test_csv_format_guessing
  72     (data => <<DATA, format => sub { return $_ eq '#,##0.00'; }, decimal => '.', thousand => ',' );
  73 "Values"
  74 "100,456.22"
  75 DATA
  76
  77 &test_csv_format_guessing
  78     (data => <<DATA, format => sub { return $_ eq '#,##0.000'; }, decimal => '.', thousand => ',' );
  79 "Values"
  80 "100,456.222"
  81 DATA
  82
  83 print STDERR "Pass\n";