diff options
-rw-r--r-- | t/bug-15.t | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -11,10 +11,17 @@ 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->{IgnoreProtection}); ok(!$b2->get_format->{Hidden}); ok(!$b2->get_format->{Lock}); +my $b3 = $ws->get_cell(2, 1); +ok(exists $b3->get_format->{Hidden}); +ok(exists $b3->get_format->{Lock}); +ok(!$b3->get_format->{IgnoreProtection}); +ok(!$b3->get_format->{Hidden}); +ok(!$b3->get_format->{Lock}); + my $b4 = $ws->get_cell(3, 1); ok(exists $b4->get_format->{Hidden}); ok(exists $b4->get_format->{Lock}); |