File: 07-hidden-cols.t

package info (click to toggle)
libspreadsheet-readsxc-perl 0.39-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,368 kB
  • sloc: perl: 1,377; makefile: 8; xml: 2
file content (22 lines) | stat: -rw-r--r-- 644 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use Test::More tests => 34;
use File::Basename 'dirname';
use Spreadsheet::ParseODS;
use Data::Dumper;

my $d = dirname($0);

for my $file (qw(hidden-cols.ods hidden-cols.fods)) {
    my $workbook = Spreadsheet::ParseODS->new()->parse("$d/$file");
    for my $sheet (qw(vhvhvh vhvhv vhhhvh)) {
        my $worksheet = $workbook->worksheet($sheet);

        my $colnum = 0;
        for my $col (split //, $sheet) {
            my $v_hidden = ($col eq 'h') ? 'hidden' : 'visible';
            is !!$worksheet->is_col_hidden( $colnum++ ),
               ($col eq 'h'),
               "Column '$col' is $v_hidden";
        };
    };
};