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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
require Test::NoWarnings;
my $tests = 41;
use Spreadsheet::Read;
my $parser = Spreadsheet::Read::parses ("gnumeric")
or plan skip_all => "Cannot use Spreadsheet::ReadGnumeric";
ok (my $ss = ReadData ("files/merged.gnumeric", attr => 1)->[1],
"Read merged gnumeric");
is_deeply ($ss->{merged}, [[1, 2, 1, 3], [2, 1, 3, 2]], "Merged areas");
ok (!$ss->{attr}[1][1], "unmerged A1");
is ( $ss->{attr}[2][1]{merged}, 1, " merged B1");
is ( $ss->{attr}[3][1]{merged}, 1, " merged C1");
is ( $ss->{attr}[1][2]{merged}, 1, " merged A2");
is ( $ss->{attr}[2][2]{merged}, 1, " merged B2");
is ( $ss->{attr}[3][2]{merged}, 1, " merged C2");
is ( $ss->{attr}[1][3]{merged}, 1, " merged A3");
ok (!$ss->{attr}[2][3]{merged}, "unmerged B3");
ok (!$ss->{attr}[3][3]{merged}, "unmerged C3");
ok ($ss = Spreadsheet::Read->new (
"files/merged.gnumeric",
attr => 1,
merge => 1
)->sheet (1),
"Read merged gnumeric"
);
is ( $ss->attr (2, 1)->merged, "B1", " merged B1");
is ( $ss->attr (3, 1)->merged, "B1", " merged C1");
is ( $ss->attr (1, 2)->merged, "A2", " merged A2");
is ( $ss->attr (2, 2)->merged, "B1", " merged B2");
is ( $ss->attr (3, 2)->merged, "B1", " merged C2");
is ( $ss->attr (1, 3)->merged, "A2", " merged A3");
ok (!$ss->attr (2, 3)->merged, "unmerged B3");
ok (!$ss->attr (3, 3)->merged, "unmerged C3");
ok (!$ss->attr ("A1"), "no A1 attributes without content");
is ( $ss->attr ("B1")->merged, "B1", " merged B1");
is ( $ss->attr ("C1")->merged, "B1", " merged C1");
is ( $ss->attr ("A2")->merged, "A2", " merged A2");
is ( $ss->attr ("B2")->merged, "B1", " merged B2");
is ( $ss->attr ("C2")->merged, "B1", " merged C2");
is ( $ss->attr ("A3")->merged, "A2", " merged A3");
ok (!$ss->attr ("B3")->merged, "unmerged B3");
ok (!$ss->attr ("C3")->merged, "unmerged C3");
is_deeply ($ss->{merged}, [[1, 2, 1, 3], [2, 1, 3, 2]], "Merged areas");
ok (!$ss->merged_from ("A1"), "merged_from (A1)");
is ( $ss->merged_from (1, 1), "", "merged_from (1, 1)");
is ( $ss->merged_from ("B1"), "B1", "merged_from (B1)");
is ( $ss->merged_from (2, 1), "B1", "merged_from (2, 1)");
is ( $ss->merged_from ("C2"), "B1", "merged_from (C2)");
is ( $ss->merged_from (3, 2), "B1", "merged_from (3, 2)");
# out of range
is ( $ss->merged_from ("E5"), undef, "merged_from (E5)");
# illegal ID
is ( $ss->merged_from (999), undef, "merged_from (999)");
is ( $ss->merged_from ("9X"), undef, "merged_from (9X)");
is ( $ss->merged_from (999, 99), undef, "merged_from (999, 99)");
is ( $ss->merged_from (9, 9, 9), undef, "merged_from (9, 9, 9)");
unless ($ENV{AUTOMATED_TESTING}) {
Test::NoWarnings::had_no_warnings ();
$tests++;
}
done_testing ($tests);
|
