blob: 5ec62b2a40457298f0721d24f6c7c23ef49f445b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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;
|
