summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
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