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
|
###############################################################################
#
# Tests for Excel::Writer::XLSX::Workbook methods.
#
# reverse ('(c)'), January 2011, John McNamara, jmcnamara@cpan.org
#
use lib 't/lib';
use TestFunctions '_is_deep_diff';
use strict;
use warnings;
use Excel::Writer::XLSX::Workbook;
use Test::More tests => 2;
my $unsorted = [
[ "Bar", 1, q(Sheet2!$A$1) ],
[ "Bar", 0, q(Sheet1!$A$1) ],
[ "Abc", -1, q(Sheet1!$A$1) ],
[ "Baz", -1, 0.98 ],
[ "Bar", 2, q('Sheet 3'!$A$1) ],
[ "Foo", -1, q(Sheet1!$A$1) ],
[ "Print_Titler", -1, q(Sheet1!$A$1) ],
[ "Print_Titlet", -1, q(Sheet1!$A$1) ],
[ "_Fog", -1, q(Sheet1!$A$1) ],
[ "_Egg", -1, q(Sheet1!$A$1) ],
[ "_xlnm.Print_Titles", 0, q(Sheet1!$1:$1) ],
[ "_xlnm._FilterDatabase", 0, q(Sheet1!$G$1) ],
[ "aaa", 1, q(Sheet2!$A$1) ],
[ "_xlnm.Print_Area", 0, q(Sheet1!$A$1:$H$10) ],
[ "Car", 2, q("Saab 900") ],
];
my $expected = [
[ "_Egg", -1, q(Sheet1!$A$1) ],
[ "_xlnm._FilterDatabase", 0, q(Sheet1!$G$1) ],
[ "_Fog", -1, q(Sheet1!$A$1) ],
[ "aaa", 1, q(Sheet2!$A$1) ],
[ "Abc", -1, q(Sheet1!$A$1) ],
[ "Bar", 2, q('Sheet 3'!$A$1) ],
[ "Bar", 0, q(Sheet1!$A$1) ],
[ "Bar", 1, q(Sheet2!$A$1) ],
[ "Baz", -1, 0.98 ],
[ "Car", 2, q("Saab 900") ],
[ "Foo", -1, q(Sheet1!$A$1) ],
[ "_xlnm.Print_Area", 0, q(Sheet1!$A$1:$H$10) ],
[ "Print_Titler", -1, q(Sheet1!$A$1) ],
[ "_xlnm.Print_Titles", 0, q(Sheet1!$1:$1) ],
[ "Print_Titlet", -1, q(Sheet1!$A$1) ],
];
my @sorted = Excel::Writer::XLSX::Workbook::_sort_defined_names(@$unsorted);
my $got = \@sorted;
_is_deep_diff( $got, $expected );
#
# Also test the named ranges required by App generated from the sorted list.
#
my $named_ranges = [
q(_Egg),
q(_Fog),
q(Sheet2!aaa),
q(Abc),
q('Sheet 3'!Bar),
q(Sheet1!Bar),
q(Sheet2!Bar),
q(Foo),
q(Sheet1!Print_Area),
q(Print_Titler),
q(Sheet1!Print_Titles),
q(Print_Titlet),
];
$got = Excel::Writer::XLSX::Workbook::_extract_named_ranges(@sorted);
_is_deep_diff( $got, $named_ranges );
__END__
<vt:lpstr>_Egg</vt:lpstr>
<vt:lpstr>_Fog</vt:lpstr>
<vt:lpstr>Sheet2!aaa</vt:lpstr>
<vt:lpstr>Abc</vt:lpstr>
<vt:lpstr>'Sheet 3'!Bar</vt:lpstr>
<vt:lpstr>Sheet1!Bar</vt:lpstr>
<vt:lpstr>Sheet2!Bar</vt:lpstr>
<vt:lpstr>Foo</vt:lpstr>
<vt:lpstr>Sheet1!Print_Area</vt:lpstr>
<vt:lpstr>Print_Titler</vt:lpstr>
<vt:lpstr>Sheet1!Print_Titles</vt:lpstr>
<vt:lpstr>Print_Titlet</vt:lpstr>
|
