fix spreadsheets that have only a single cell (#2)

2 files changed, 22 insertions, 0 deletions

diff --git a/t/bug-2.t b/t/bug-2.t
new file mode 100644
index 0000000..0f33f40
--- /dev/null
+++ b/t/bug-2.t
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Spreadsheet::ParseXLSX;
+
+my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-2.xlsx');
+is($wb->worksheet_count, 3);
+
+my $ws = $wb->worksheet(0);
+is($ws->get_name, 'Placement');
+
+is_deeply([$ws->row_range], [0, 0]);
+is_deeply([$ws->col_range], [0, 0]);
+is_deeply($ws->{Selection}, [1, 0]);
+
+my $cell = $ws->get_cell(0, 0);
+is($cell->value, "HELLO");
+is($cell->type, 'Text');
+
+done_testing;
diff --git a/t/data/bug-2.xlsx b/t/data/bug-2.xlsx
new file mode 100644
index 0000000..c17d850
--- /dev/null
+++ b/t/data/bug-2.xlsx