diff options
Diffstat (limited to 't/bug-15.t')
-rw-r--r-- | t/bug-15.t | 25 |
1 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; |