diff options
Diffstat (limited to 't')
-rw-r--r-- | t/bug-15.t | 25 | ||||
-rw-r--r-- | t/data/bug-15.xlsx | bin | 0 -> 13602 bytes |
2 files changed, 25 insertions, 0 deletions
diff --git a/t/bug-15.t b/t/bug-15.t new file mode 100644 index 0000000..5ec62b2 --- /dev/null +++ b/t/bug-15.t @@ -0,0 +1,25 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-15.xlsx'); +my $ws = $wb->worksheet(1); + +my $b2 = $ws->get_cell(1, 1); +ok(exists $b2->get_format->{Hidden}); +ok(exists $b2->get_format->{Lock}); +ok(!$b2->get_format->{IgnoreProtection}); +ok(!$b2->get_format->{Hidden}); +ok(!$b2->get_format->{Lock}); + +my $b4 = $ws->get_cell(3, 1); +ok(exists $b4->get_format->{Hidden}); +ok(exists $b4->get_format->{Lock}); +ok(!$b4->get_format->{IgnoreProtection}); +ok($b4->get_format->{Hidden}); +ok(!$b4->get_format->{Lock}); + +done_testing; diff --git a/t/data/bug-15.xlsx b/t/data/bug-15.xlsx Binary files differnew file mode 100644 index 0000000..d31d1dd --- /dev/null +++ b/t/data/bug-15.xlsx |