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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Spreadsheet::ParseXLSX;
my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-6-2.xlsx');
is($wb->worksheet_count, 9);
my %cells = (
7 => {
0 => "acr business objects users",
1 => "MBX or Distribution group",
},
8 => {
0 => "atst",
1 => "Kevin Krause; Gale Wilson",
},
9 => {
0 => "cts tracking research",
1 => "Theresa Kreckman; Jamie Engle",
},
10 => {
0 => "docs ddm",
1 => "Marc Barney; Everett Music",
},
11 => {
0 => "docs read only",
1 => "Marc Barney; Everett Music; Theresa Kreckman; Jamie Engle",
},
12 => {
0 => "distwhl3rdparty",
1 => "Theresa Kreckman; Jamie Engle",
},
13 => {
0 => "ent logis b2b",
1 => "Mark Reed; Mark Teschner",
},
14 => {
0 => "ent qamasterx",
1 => "Margaret Davis; Ron Medinger",
},
15 => {
0 => "ent shipments",
1 => "Jamie Engle; Teresa Kreckman",
},
16 => {
0 => "ful distrib plan",
1 => "Theresa Kreckman",
},
17 => {
0 => "ful traffic share",
1 => "Mark Reed; Mark Teschner",
},
18 => {
0 => "ful",
1 => "Mark Teschner",
},
19 => {
0 => "hwc_international",
1 => "Kelly Simmons",
},
20 => {
0 => "masterpack/lotships",
1 => "MBX or Distribution group",
},
21 => {
0 => "medford distribution planning - mbx access",
1 => "MBX or Distribution group",
},
22 => {
0 => "nph fruit team minutes",
1 => "MBX or Distribution group",
},
23 => {
0 => "odd costco",
1 => "Theresa Kreckman; Jamie Engle",
},
24 => {
0 => "odd qvc",
1 => "Theresa Kreckman; Jamie Engle",
},
25 => {
0 => "opr ctsdata",
1 => "Theresa Kreckman; Jamie Engle",
},
26 => {
0 => "opr selectinterface",
1 => "Jamie Engle; Theresa Kreckman",
},
27 => {
0 => "opr worldship",
1 => "Chris Larson; Jamie Engle",
},
28 => {
0 => "opr-dropship",
1 => "Theresa Kreckman; Carolyn Townsend",
},
29 => {
0 => "opr-ship docks info",
1 => "Chris Larson; Pam Saxbury",
},
30 => {
0 => "opr-shipoutbol",
1 => "Mark Reed; Mark Teschner; Theresa Kreckman",
},
31 => {
0 => "proxy internet",
1 => "Chris Works",
},
32 => {
0 => "sap users",
1 => "MBX or Distribution group",
},
33 => {
0 => "trailertracking",
1 => "Theresa Kreckman; Everett Music; Jamie Engle",
},
34 => {
0 => "vendorunitaccess",
1 => "Carolyn Townsend; Everett Music; Theresa Kreckman",
},
35 => {
0 => "wms dist",
1 => "MBX or Distribution group",
},
);
my $ws = $wb->worksheet('DSGroups');
for my $row (sort { $a <=> $b } keys %cells) {
for my $col (sort { $a <=> $b } keys %{ $cells{$row} }) {
my $cell = $ws->get_cell($row, $col);
next unless $cell;
is($cell->value, $cells{$row}{$col}, "correct value for ($row, $col)");
}
}
done_testing;
|
