diff options
Diffstat (limited to 't/rich.t')
-rw-r--r-- | t/rich.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/rich.t b/t/rich.t new file mode 100644 index 0000000..f7b957e --- /dev/null +++ b/t/rich.t @@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-11.xlsx'); +is($wb->worksheet_count, 1); + +my $ws = $wb->worksheet(0); +is($ws->get_cell(0, 0)->value, "foobarbaz"); +my $rich_text_data = $ws->get_cell(0, 0)->get_rich_text; +is($rich_text_data->[0][0], 0); +ok(!$rich_text_data->[0][1]->{Italic}); +is($rich_text_data->[1][0], 3); +ok($rich_text_data->[1][1]->{Italic}); +is($rich_text_data->[2][0], 6); +ok(!$rich_text_data->[2][1]->{Italic}); + +done_testing; |