summaryrefslogtreecommitdiffstats
path: root/t/tab-color.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2014-07-05 14:35:08 -0400
committerJesse Luehrs <doy@tozt.net>2014-07-05 14:35:08 -0400
commit01f97f6374de81f99aaecdf593615a9d334781da (patch)
treea96a907e4a013a9d90168b732ef8a102f3c3123a /t/tab-color.t
parent063a3ed5650df0e84af5ddfc3c909077d04159d5 (diff)
parentc4c84e8055f67738d0f9b6ae30d1d844c6fc46a4 (diff)
downloadspreadsheet-parsexlsx-01f97f6374de81f99aaecdf593615a9d334781da.tar.gz
spreadsheet-parsexlsx-01f97f6374de81f99aaecdf593615a9d334781da.zip
Merge pull request #26 from felliott/parseexcel-parity
Add TabColor and ColFmtNo support to ParseXLSX
Diffstat (limited to 't/tab-color.t')
-rw-r--r--t/tab-color.t15
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;