diff options
Diffstat (limited to 't/bug-32.t')
-rw-r--r-- | t/bug-32.t | 18 |
1 files changed, 16 insertions, 2 deletions
@@ -5,7 +5,21 @@ use Test::More; use Spreadsheet::ParseXLSX; -my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-32.xlsx'); -pass('it parses successfully'); +{ + my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-32.xlsx'); + + my $ws1 = $wb->worksheet(0); + like($ws1->get_cell(0, 0)->value, qr/^PURSUANT/); + + my $ws2 = $wb->worksheet(1); + like($ws2->get_cell(0, 0)->value, qr/^QMS/); +} + +{ + my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-32-2.xlsx'); + + my $ws = $wb->worksheet(0); + is($ws->get_cell(1, 1)->value, 93); +} done_testing; |