blob: 4c7710a0c6f6293946839330d73691fe18d0a947 (
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
26
27
28
29
30
31
32
|
#!/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 $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});
ok(!$b4->get_format->{IgnoreProtection});
ok($b4->get_format->{Hidden});
ok(!$b4->get_format->{Lock});
done_testing;
|