diff options
author | Dave Clarke <david_clarke@verizon.net> | 2015-03-05 14:20:04 -0500 |
---|---|---|
committer | Dave Clarke <david_clarke@verizon.net> | 2015-03-05 14:20:04 -0500 |
commit | f1307d32345a36663a6f8fa453676efdd4f39171 (patch) | |
tree | c1411cda3e94d39bd5a5c1ff556c2bf8841d49c8 /t/page-Setup.t | |
parent | c48aba2416230ad6f9fa792a256e2983ce863b98 (diff) | |
download | spreadsheet-parsexlsx-f1307d32345a36663a6f8fa453676efdd4f39171.tar.gz spreadsheet-parsexlsx-f1307d32345a36663a6f8fa453676efdd4f39171.zip |
Added Parsing for Page Setup, Diagonal Borders
Modifed ParseXLSX.pm to parse Page Setup , margins, and also parsing of
diagonal borders. Also added new test script page-Setup.t
Diffstat (limited to 't/page-Setup.t')
-rw-r--r-- | t/page-Setup.t | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/t/page-Setup.t b/t/page-Setup.t new file mode 100644 index 0000000..5f0df1d --- /dev/null +++ b/t/page-Setup.t @@ -0,0 +1,40 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/page-Setup.xlsx'); + +my $ws1 = $wb->worksheet(0); + +# Header/Footer Text +is($ws1->{header}, '&CHeader'); +is($ws1->{footer}, '&CFooter'); + +# Margins +is($ws1->{pageMargins}{header}, '0.3'); +is($ws1->{pageMargins}{footer}, '0.4'); +is($ws1->{pageMargins}{left}, '0.5'); +is($ws1->{pageMargins}{right}, '0.6'); +is($ws1->{pageMargins}{top}, '0.7'); +is($ws1->{pageMargins}{bottom}, '0.8'); + +# Page Setup +is($ws1->{pageSetup}{scale}, '75'); +is($ws1->{pageSetup}{orientation}, 'landscape'); +is($ws1->{pageSetup}{paperSize}, '4'); # Code for 11*17 + +# Cell Border Formatting +is($ws1->get_cell(0,0)->get_format()->{'BdrDiag'}[0], 1); +is($ws1->get_cell(0,1)->get_format()->{'BdrDiag'}[0], 2); +is($ws1->get_cell(0,2)->get_format()->{'BdrDiag'}[0], 3); +is($ws1->get_cell(0,0)->get_format()->{'BdrDiag'}[1], 6); # Double Line +is($ws1->get_cell(0,0)->get_format()->{'BdrDiag'}[2], '#FF0000'); # Red + +is($ws1->get_cell(2,0)->get_format()->{'Rotate'}, 90); +is($ws1->get_cell(3,0)->get_format()->{'Shrink'}, 1); +is($ws1->get_cell(4,0)->get_format()->{'Indent'}, 1); + +done_testing; |