From f1307d32345a36663a6f8fa453676efdd4f39171 Mon Sep 17 00:00:00 2001
From: Dave Clarke <david_clarke@verizon.net>
Date: Thu, 5 Mar 2015 14:20:04 -0500
Subject: 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
---
 t/data/page-Setup.xlsx | Bin 0 -> 9185 bytes
 t/page-Setup.t         |  40 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 t/data/page-Setup.xlsx
 create mode 100644 t/page-Setup.t

(limited to 't')

diff --git a/t/data/page-Setup.xlsx b/t/data/page-Setup.xlsx
new file mode 100644
index 0000000..b0383a3
Binary files /dev/null and b/t/data/page-Setup.xlsx differ
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;
-- 
cgit v1.2.3-54-g00ecf


From d68a64fd13b65e80a4cfb763527d8189c1376151 Mon Sep 17 00:00:00 2001
From: Dave Clarke <david_clarke@verizon.net>
Date: Sat, 7 Mar 2015 00:28:57 -0500
Subject: Remove TAB character in test script

missed tab character in test script t\page-Setup.t
---
 t/page-Setup.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't')

diff --git a/t/page-Setup.t b/t/page-Setup.t
index 5f0df1d..71cca22 100644
--- a/t/page-Setup.t
+++ b/t/page-Setup.t
@@ -24,7 +24,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
+is($ws1->{pageSetup}{paperSize}, '4');                               # Code for 11*17
 
 # Cell Border Formatting
 is($ws1->get_cell(0,0)->get_format()->{'BdrDiag'}[0], 1);
-- 
cgit v1.2.3-54-g00ecf