From 15859bd34334223f22ceb137b79a9cf5e8d8cc99 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 22 May 2016 05:42:15 -0400 Subject: not all files have styles either --- t/bug-32.t | 18 ++++++++++++++++-- t/data/bug-32-2.xlsx | Bin 0 -> 533859 bytes 2 files changed, 16 insertions(+), 2 deletions(-) create mode 100644 t/data/bug-32-2.xlsx (limited to 't') diff --git a/t/bug-32.t b/t/bug-32.t index c9f095a..57346f7 100644 --- a/t/bug-32.t +++ b/t/bug-32.t @@ -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 new file mode 100644 index 0000000..2aa0e0e Binary files /dev/null and b/t/data/bug-32-2.xlsx differ -- cgit v1.2.3-54-g00ecf