summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2016-05-22 05:42:15 -0400
committerJesse Luehrs <doy@tozt.net>2016-05-22 06:42:57 -0400
commit15859bd34334223f22ceb137b79a9cf5e8d8cc99 (patch)
treed0c16bddd4ee5e5e87d6c920ac60302f763784bd /t
parent179eb49bc6ed27574f320eddca66e43e6d3e7563 (diff)
downloadspreadsheet-parsexlsx-15859bd34334223f22ceb137b79a9cf5e8d8cc99.tar.gz
spreadsheet-parsexlsx-15859bd34334223f22ceb137b79a9cf5e8d8cc99.zip
not all files have styles either
Diffstat (limited to 't')
-rw-r--r--t/bug-32.t18
-rw-r--r--t/data/bug-32-2.xlsxbin0 -> 533859 bytes
2 files changed, 16 insertions, 2 deletions
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
--- /dev/null
+++ b/t/data/bug-32-2.xlsx
Binary files differ