diff options
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; |