diff options
author | Stuart Watt <stuart@morungos.com> | 2015-09-01 14:36:31 -0400 |
---|---|---|
committer | Stuart Watt <stuart@morungos.com> | 2015-09-01 14:36:31 -0400 |
commit | 44f6095337975eb5bc004a45e1147d0ba4652753 (patch) | |
tree | 5fdb5bf3f26ec3be2a5f513241e0f69a9ff6df65 /t | |
parent | 53bf90652bf21ba5ed934af67e37737b7ffa2b1a (diff) | |
download | spreadsheet-parsexlsx-44f6095337975eb5bc004a45e1147d0ba4652753.tar.gz spreadsheet-parsexlsx-44f6095337975eb5bc004a45e1147d0ba4652753.zip |
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.
Diffstat (limited to 't')
-rw-r--r-- | t/bug-38.t | 11 | ||||
-rw-r--r-- | t/data/bug-38.xlsx | bin | 0 -> 12338 bytes |
2 files changed, 11 insertions, 0 deletions
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 Binary files differnew file mode 100644 index 0000000..be360b4 --- /dev/null +++ b/t/data/bug-38.xlsx |