diff options
author | Fitz Elliott <felliott@fiskur.org> | 2014-07-05 11:14:11 -0400 |
---|---|---|
committer | Fitz Elliott <felliott@fiskur.org> | 2014-07-05 12:17:48 -0400 |
commit | c4c84e8055f67738d0f9b6ae30d1d844c6fc46a4 (patch) | |
tree | 7d850e0208173e665984607ca2a900cad0db8a3d /t | |
parent | 61ed182ace7b7ac06a00b0bb9d572cc464b43493 (diff) | |
download | spreadsheet-parsexlsx-c4c84e8055f67738d0f9b6ae30d1d844c6fc46a4.tar.gz spreadsheet-parsexlsx-c4c84e8055f67738d0f9b6ae30d1d844c6fc46a4.zip |
add ColFmtNo support to ParseXLSX
Diffstat (limited to 't')
-rw-r--r-- | t/column-formats.t | 25 | ||||
-rw-r--r-- | t/data/column-formats.xlsx | bin | 0 -> 25979 bytes |
2 files changed, 25 insertions, 0 deletions
diff --git a/t/column-formats.t b/t/column-formats.t new file mode 100644 index 0000000..7ce9650 --- /dev/null +++ b/t/column-formats.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/column-formats.xlsx'); +my $ws = $wb->worksheet(0); + +ok(my $col_format_nos = $ws->{ColFmtNo}); + +my @col_formats = map { $wb->{Format}[ $_ ] } @$col_format_nos; +is_deeply($col_formats[0]->{Fill}, [1, '#FF0000', '#FFFFFF']); + +is($col_formats[1]->{AlignH}, 3); +is($col_formats[1]->{AlignV}, 0); + +my $font = $col_formats[2]->{Font}; +is_deeply($font->{Name}, 'Arial'); +is_deeply($font->{Height}, 16); +is_deeply($font->{Bold}, 1); + + +done_testing; diff --git a/t/data/column-formats.xlsx b/t/data/column-formats.xlsx Binary files differnew file mode 100644 index 0000000..a1a9344 --- /dev/null +++ b/t/data/column-formats.xlsx |