From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

HMBRAND / Spreadsheet-Read-0.93 / t / 417_merged.t 

            

              
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

              
#!/usr/bin/perl
use strict;
use warnings;
BEGIN { $ENV{SPREADSHEET_READ_ODS} = "Spreadsheet::ParseODS"; }
my     $tests = 22;
use     Test::More;
require Test::NoWarnings;
use     Spreadsheet::Read;
my $parser = Spreadsheet::Read::parses ("ods") or
    plan skip_all => "Cannot use $ENV{SPREADSHEET_READ_ODS}";
my $pv = $parser->VERSION;
# ReadSXC is in transition to ParseODS by CORION
$parser eq "Spreadsheet::ParseODS" && $pv lt "0.25" and
    plan skip_all => "No merged cell support in $parser-$pv";
ok (my $ss = ReadData ("files/merged.ods", attr => 1)->[1], "Read merged ods");
is ($ss->{attr}[1][1]{merged}, 0, "unmerged A1");
is ($ss->{attr}[2][1]{merged}, 1, "unmerged B1");
is ($ss->{attr}[3][1]{merged}, 1, "unmerged C1");
is ($ss->{attr}[1][2]{merged}, 1, "unmerged A2");
is ($ss->{attr}[2][2]{merged}, 1, "unmerged B2");
is ($ss->{attr}[3][2]{merged}, 1, "unmerged C2");
is ($ss->{attr}[1][3]{merged}, 1, "unmerged A3");
is ($ss->{attr}[2][3]{merged}, 0, "unmerged B3");
is ($ss->{attr}[3][3]{merged}, 0, "unmerged C3");
                          # A2:A3     B1:C2
is_deeply ($ss->{merged}, [[1,2,1,3],[2,1,3,2]], "Merged areas");
ok ($ss = Spreadsheet::Read->new ("files/merged.ods",
    attr => 1, merge => 1)->sheet (1), "Read merged ods");
is ($ss->attr (1, 1)->merged, 0,    "unmerged A1");
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");
is ($ss->attr (2, 3)->merged, 0,    "unmerged B3");
is ($ss->attr (3, 3)->merged, 0,    "unmerged C3");
is ($ss->attr ("A1")->merged, 0,    "unmerged A1");
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");
is ($ss->attr ("B3")->merged, 0,    "unmerged B3");
is ($ss->attr ("C3")->merged, 0,    "unmerged C3");
is_deeply ($ss->{merged}, [[1,2,1,3],[2,1,3,2]], "Merged areas");
is ($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)");
done_testing;