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
|
#!/usr/bin/perl
###############################################################################
#
# A test for Spreadsheet::ParseExcel.
#
# Tests for the SST with long strings over 2 CONTINUE blocks.
#
# reverse(''), January 2009, John McNamara, jmcnamara@cpan.org
#
use strict;
use warnings;
use Spreadsheet::ParseExcel;
use Test::More tests => 24;
###############################################################################
#
# Tests setup.
#
my $parser;
my $workbook;
my $worksheet;
my $file;
my $cell;
my $sheetname;
my $cell_value;
my $expected;
my $caption1;
my $caption2;
###############################################################################
#
# Chart 1.
#
$file = 't/excel_files/chart1.xls';
$parser = Spreadsheet::ParseExcel->new();
$workbook = $parser->Parse($file);
for my $index ( 0 .. 2 ) {
$worksheet = $workbook->worksheet($index);
$sheetname = $worksheet->{Name};
$cell = $worksheet->get_cell( 0, 0 );
$cell_value = $cell->value();
$expected = 'Sheet' . ( $index + 1 );
$caption1 = " \tFile = $file, Sheet name = $expected";
$caption2 = " \t + $file, Cell value = $expected";
is( $sheetname, $expected, $caption1 );
is( $cell_value, $expected, $caption2 );
}
###############################################################################
#
# Chart 2.
#
$file = 't/excel_files/chart2.xls';
$parser = Spreadsheet::ParseExcel->new();
$workbook = $parser->Parse($file);
for my $index ( 0 .. 2 ) {
$worksheet = $workbook->worksheet($index);
$sheetname = $worksheet->{Name};
$cell = $worksheet->get_cell( 0, 0 );
$cell_value = $cell->value();
$expected = 'Sheet' . ( $index + 1 );
$caption1 = " \tFile = $file, Sheet name = $expected";
$caption2 = " \t + $file, Cell value = $expected";
is( $sheetname, $expected, $caption1 );
is( $cell_value, $expected, $caption2 );
}
###############################################################################
#
# Chart 3.
#
$file = 't/excel_files/chart3.xls';
$parser = Spreadsheet::ParseExcel->new();
$workbook = $parser->Parse($file);
for my $index ( 0 .. 2 ) {
$worksheet = $workbook->worksheet($index);
$sheetname = $worksheet->{Name};
$cell = $worksheet->get_cell( 0, 0 );
$cell_value = $cell->value();
$expected = 'Sheet' . ( $index + 1 );
$caption1 = " \tFile = $file, Sheet name = $expected";
$caption2 = " \t + $file, Cell value = $expected";
is( $sheetname, $expected, $caption1 );
is( $cell_value, $expected, $caption2 );
}
###############################################################################
#
# Chart 4.
#
$file = 't/excel_files/chart4.xls';
$parser = Spreadsheet::ParseExcel->new();
$workbook = $parser->Parse($file);
for my $index ( 0 .. 2 ) {
$worksheet = $workbook->worksheet($index);
$sheetname = $worksheet->{Name};
$cell = $worksheet->get_cell( 0, 0 );
$cell_value = $cell->value();
$expected = 'Sheet' . ( $index + 1 );
$caption1 = " \tFile = $file, Sheet name = $expected";
$caption2 = " \t + $file, Cell value = $expected";
is( $sheetname, $expected, $caption1 );
is( $cell_value, $expected, $caption2 );
}
__END__
|
