summaryrefslogtreecommitdiffstats
path: root/t/bug-32.t
diff options
context:
space:
mode:
Diffstat (limited to 't/bug-32.t')
-rw-r--r--t/bug-32.t18
1 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;