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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 99;
use Test::NoWarnings;
use Spreadsheet::Read qw(:DEFAULT parses rows );
is (Spreadsheet::Read::Version (), $Spreadsheet::Read::VERSION, "Version check");
is (parses (undef), 0, "No sheet type");
is (parses ("xyzzy"), 0, "Unknown sheet type");
is (parses ("xls"), parses ("excel"), "Excel alias type");
is (parses ("sxc"), parses ("oo"), "OpenOffice alias type 1");
is (parses ("sxc"), parses ("OpenOffice"), "OpenOffice alias type 2");
is (parses ("prl"), parses ("perl"), "Perl alias type");
foreach my $x ([ "A1", 1, 1 ],
[ "Z26", 26, 26 ],
[ "AB12", 28, 12 ],
[ "A", 0, 0 ],
[ "19", 0, 0 ],
[ "a9", 1, 9 ],
[ "aAa9", 703, 9 ],
[ "", 0, 0 ],
[ undef, 0, 0 ],
[ "x444444", 24, 444444 ],
[ "xxxxxx4", 296559144, 4 ],
) {
my $cell = $x->[0];
my ($c, $r) = cell2cr ($x->[0]);
defined $cell or $cell = "";
is ($c, $x->[1], "Col for $cell");
is ($r, $x->[2], "Row for $cell");
}
foreach my $x ([ 1, 1, "A1" ],
[ 26, 26, "Z26" ],
[ 28, 12, "AB12" ],
[ 0, 0, "" ],
[ -2, 0, "" ],
[ 0, -12, "" ],
[ 1, -12, "" ],
[ undef, 1, "" ],
[ 2, undef, "" ],
[ 1, 9, "A9" ],
[ 703, 9, "AAA9" ],
[ 24, 444444, "X444444" ],
[ 296559144, 4, "XXXXXX4" ],
) {
my $cell = cr2cell ($x->[0], $x->[1]);
my ($c, $r) = map { defined $_ ? $_ : "--undef --" } $x->[0], $x->[1];
is ($cell, $x->[2], "Cell for ($c, $r)");
}
# Some illegal rows () calls
for (undef, "", " ", 0, 1, [], {}) {
my @rows = rows ($_);
my $arg = defined $_ ? $_ : "-- undef --";
is (scalar @rows, 0, "Illegal rows ($arg)");
}
for (undef, "", " ", 0, 1, [], {}) {
my @rows = rows ({ cell => $_});
my $arg = defined $_ ? $_ : "-- undef --";
is (scalar @rows, 0, "Illegal rows ({ cell => $arg})");
}
for (undef, "", " ", 0, 1, [], {}) {
my @rows = rows ({ maxrow => 1, cell => $_});
my $arg = defined $_ ? $_ : "-- undef --";
is (scalar @rows, 0, "Illegal rows ({ maxrow => 1, cell => $arg })");
}
for (undef, "", " ", 0, 1, [], {}) {
my @rows = rows ({ maxcol => 1, cell => $_});
my $arg = defined $_ ? $_ : "-- undef --";
is (scalar @rows, 0, "Illegal rows ({ maxcol => 1, cell => $arg })");
}
# Some illegal ReadData () calls
for (undef, "", " ", 0, 1, [], {}) {
my $ref = ReadData ($_);
my $arg = defined $_ ? $_ : "-- undef --";
is ($ref, undef, "Illegal ReadData ($arg)");
}
for (undef, "", " ", 0, 1, [], {}) {
my $ref = ReadData ([ $_ ]);
my $arg = defined $_ ? $_ : "-- undef --";
is ($ref, undef, "Illegal ReadData ([ $arg ])");
}
for (undef, "", " ", 0, 1, [], {}) {
my $ref = ReadData ("/dev/null", separator => $_);
my $arg = defined $_ ? $_ : "-- undef --";
is ($ref, undef, "Illegal ReadData ({ $arg })");
}
for (undef, "", " ", 0, 1, [], {}) {
my $ref;
eval { $ref = ReadData ("Read.pm", sep => $_); };
my $arg = defined $_ ? $_ : "-- undef --";
is ($ref, undef, "Illegal ReadData ({ $arg })");
}
|
