diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-01-29 15:01:05 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-01-29 15:01:05 -0500 |
commit | 58e422a18e68ed948a791ffba824fd67689d02df (patch) | |
tree | eef8e15ec093499a161ccfb75a80d03735998f4e /t | |
parent | 305d1a772ccfff825806fe2dbcbc822a85f05145 (diff) | |
download | spreadsheet-parsexlsx-58e422a18e68ed948a791ffba824fd67689d02df.tar.gz spreadsheet-parsexlsx-58e422a18e68ed948a791ffba824fd67689d02df.zip |
support locked and hidden cells (#15)
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 |