implement the inlineStr cell type

2 files changed, 24 insertions, 0 deletions

diff --git a/t/bug-12.t b/t/bug-12.t
new file mode 100644
index 0000000..0af7a6a
--- /dev/null
+++ b/t/bug-12.t
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Spreadsheet::ParseXLSX;
+
+my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-12.xlsx');
+is($wb->worksheet_count, 1);
+
+my $ws = $wb->worksheet(0);
+my ($rmin, $rmax) = $ws->row_range;
+my ($cmin, $cmax) = $ws->col_range;
+is($rmin, 0);
+is($rmax, 0);
+is($cmin, 0);
+is($cmax, 3);
+
+is($ws->get_cell(0, 0)->value, 7);
+is($ws->get_cell(0, 1)->value, 3);
+is($ws->get_cell(0, 2)->value, 30);
+is($ws->get_cell(0, 3)->value, 'Kuku');
+
+done_testing;
diff --git a/t/data/bug-12.xlsx b/t/data/bug-12.xlsx
new file mode 100644
index 0000000..a92a544
--- /dev/null
+++ b/t/data/bug-12.xlsx