diff options
Diffstat (limited to 't')
-rw-r--r-- | t/bug-32.t | 18 | ||||
-rw-r--r-- | t/data/bug-32-2.xlsx | bin | 0 -> 533859 bytes |
2 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; diff --git a/t/data/bug-32-2.xlsx b/t/data/bug-32-2.xlsx Binary files differnew file mode 100644 index 0000000..2aa0e0e --- /dev/null +++ b/t/data/bug-32-2.xlsx |