diff options
author | Fitz Elliott <felliott@fiskur.org> | 2014-07-05 12:13:01 -0400 |
---|---|---|
committer | Fitz Elliott <felliott@fiskur.org> | 2014-07-05 12:13:01 -0400 |
commit | 61ed182ace7b7ac06a00b0bb9d572cc464b43493 (patch) | |
tree | e9b2d8c41e562e374586b7edf300f21a125ff4a1 /t/tab-color.t | |
parent | a723723da2f4f7155f2f01f42c2502cb65f71b4b (diff) | |
download | spreadsheet-parsexlsx-61ed182ace7b7ac06a00b0bb9d572cc464b43493.tar.gz spreadsheet-parsexlsx-61ed182ace7b7ac06a00b0bb9d572cc464b43493.zip |
add TabColor support to ParseXLSX
Diffstat (limited to 't/tab-color.t')
-rw-r--r-- | t/tab-color.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/tab-color.t b/t/tab-color.t new file mode 100644 index 0000000..ef1ab49 --- /dev/null +++ b/t/tab-color.t @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/tab-color.xlsx'); +my $ws1 = $wb->worksheet(0); +is($ws1->get_tab_color, '#FF0000'); + +my $ws2 = $wb->worksheet(1); +is($ws2->get_tab_color, undef); + +done_testing; |