diff options
author | Jesse Luehrs <doy@tozt.net> | 2016-05-22 05:42:15 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2016-05-22 06:42:57 -0400 |
commit | 15859bd34334223f22ceb137b79a9cf5e8d8cc99 (patch) | |
tree | d0c16bddd4ee5e5e87d6c920ac60302f763784bd /t | |
parent | 179eb49bc6ed27574f320eddca66e43e6d3e7563 (diff) | |
download | spreadsheet-parsexlsx-15859bd34334223f22ceb137b79a9cf5e8d8cc99.tar.gz spreadsheet-parsexlsx-15859bd34334223f22ceb137b79a9cf5e8d8cc99.zip |
not all files have styles either
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 |