diff options
author | Jesse Luehrs <doy@tozt.net> | 2015-12-04 00:22:39 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2015-12-04 00:22:39 -0500 |
commit | 54ace637bf4ddfc1469ffcc7cdaf429ca2b88814 (patch) | |
tree | 5d242381daf9d8502603f0f8ceda68b45d1d677e /t | |
parent | 87df644e3dfe5c34bfb0b03e020a119e64628c0a (diff) | |
parent | 48c05714c254df089e170c014661db9a4bc7d21d (diff) | |
download | spreadsheet-parsexlsx-54ace637bf4ddfc1469ffcc7cdaf429ca2b88814.tar.gz spreadsheet-parsexlsx-54ace637bf4ddfc1469ffcc7cdaf429ca2b88814.zip |
Merge pull request #47 from ssims/master
Diffstat (limited to 't')
-rw-r--r-- | t/data/hidden-row-and-column.xlsx | bin | 0 -> 7467 bytes | |||
-rw-r--r-- | t/data/hidden-sheet.xlsx | bin | 0 -> 7397 bytes | |||
-rw-r--r-- | t/hidden-row-and-column.t | 17 | ||||
-rw-r--r-- | t/hidden-sheet.t | 15 |
4 files changed, 32 insertions, 0 deletions
diff --git a/t/data/hidden-row-and-column.xlsx b/t/data/hidden-row-and-column.xlsx Binary files differnew file mode 100644 index 0000000..4d4bac4 --- /dev/null +++ b/t/data/hidden-row-and-column.xlsx diff --git a/t/data/hidden-sheet.xlsx b/t/data/hidden-sheet.xlsx Binary files differnew file mode 100644 index 0000000..d29cafb --- /dev/null +++ b/t/data/hidden-sheet.xlsx diff --git a/t/hidden-row-and-column.t b/t/hidden-row-and-column.t new file mode 100644 index 0000000..cd18c70 --- /dev/null +++ b/t/hidden-row-and-column.t @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/hidden-row-and-column.xlsx'); +my $ws = $wb->worksheet(0); + +ok(!$ws->is_row_hidden(0), 'Regular row is not hidden'); +ok( $ws->is_row_hidden(1), 'Hidden row is hidden'); + +ok(!$ws->is_col_hidden(0), 'Regular column is not hidden'); +ok( $ws->is_col_hidden(1), 'Hidden column is hidden'); + +done_testing; diff --git a/t/hidden-sheet.t b/t/hidden-sheet.t new file mode 100644 index 0000000..09d4402 --- /dev/null +++ b/t/hidden-sheet.t @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/hidden-sheet.xlsx'); +my $ws1 = $wb->worksheet(0); +ok(!$ws1->is_sheet_hidden(), 'Regular worksheet is not hidden'); + +my $ws2 = $wb->worksheet(1); +ok($ws2->is_sheet_hidden(), 'Hidden worksheet is hidden'); + +done_testing; |