1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/usr/bin/perl
use strict;
use warnings;
BEGIN { $ENV{SPREADSHEET_READ_CSV} = "Text::CSV_XS"; }
my $tests = 4;
use Test::More;
require Test::NoWarnings;
use Spreadsheet::Read;
Spreadsheet::Read::parses ("csv") or
plan skip_all => "Cannot use $ENV{SPREADSHEET_READ_CSV}";
# EOF without \r
my (%opt, $csv) = $Text::CSV_XS::VERSION ge "1.58" ? (strict_eol => 0) : ();
ok ($csv = ReadData ("files/macosx.csv", %opt), "Read/Parse csv file");
is ($csv->[1]{maxrow}, 16, "Last row");
is ($csv->[1]{maxcol}, 15, "Last column");
is ($csv->[1]{cell}[$csv->[1]{maxcol}][$csv->[1]{maxrow}],
"", "Last field");
unless ($ENV{AUTOMATED_TESTING}) {
Test::NoWarnings::had_no_warnings ();
$tests++;
}
done_testing ($tests);
__END__
ok (1, "Defined fields");
foreach my $cell (qw( A1 A2 A3 A4 B1 B2 B4 C3 C4 D1 D3 )) {
my ($c, $r) = cell2cr ($cell);
is ($csv->[1]{cell}[$c][$r], $cell, "Unformatted cell $cell");
is ($csv->[1]{$cell}, $cell, "Formatted cell $cell");
}
ok (1, "Undefined fields");
foreach my $cell (qw( B3 C1 C2 D2 D4 )) {
my ($c, $r) = cell2cr ($cell);
is ($csv->[1]{cell}[$c][$r], "", "Unformatted cell $cell");
is ($csv->[1]{$cell}, "", "Formatted cell $cell");
}
is ($csv->[0]{sepchar}, ",", "{sepchar}");
is ($csv->[0]{quote}, '"', "{quote}");
is ($csv->[1]{C3}, "C3", "cell C3");
|
