From 44f6095337975eb5bc004a45e1147d0ba4652753 Mon Sep 17 00:00:00 2001 From: Stuart Watt Date: Tue, 1 Sep 2015 14:36:31 -0400 Subject: Don't parse sheets where there's no extracted file. See #38 See discussion at: https://github.com/doy/spreadsheet-parsexlsx/issues/38. The patch is a little different from the minimal one suggested initially, because we probably don't even want to return a sheet when we can't parse it. --- t/bug-38.t | 11 +++++++++++ t/data/bug-38.xlsx | Bin 0 -> 12338 bytes 2 files changed, 11 insertions(+) create mode 100644 t/bug-38.t create mode 100644 t/data/bug-38.xlsx (limited to 't') diff --git a/t/bug-38.t b/t/bug-38.t new file mode 100644 index 0000000..fa61176 --- /dev/null +++ b/t/bug-38.t @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-38.xlsx'); +pass('it parses successfully'); + +done_testing; diff --git a/t/data/bug-38.xlsx b/t/data/bug-38.xlsx new file mode 100644 index 0000000..be360b4 Binary files /dev/null and b/t/data/bug-38.xlsx differ -- cgit v1.2.3-54-g00ecf