Merge branch 'pull-35'

2 files changed, 40 insertions, 0 deletions

diff --git a/t/data/page-Setup.xlsx b/t/data/page-Setup.xlsx
new file mode 100644
index 0000000..b0383a3
--- /dev/null
+++ b/t/data/page-Setup.xlsx
diff --git a/t/page-Setup.t b/t/page-Setup.t
new file mode 100644
index 0000000..71cca22
--- /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;