diff options
| author | Jesse Luehrs <doy@tozt.net> | 2016-05-22 06:54:03 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2016-05-22 06:54:03 -0400 |
| commit | 5339faa0bccf8a82d1e0eb806e81dc2175630fa8 (patch) | |
| tree | 4ff60cb12fbaff986292a156f534d4a3677173f1 /t | |
| parent | 3437f97de3dc730d80d46bf8df1a640cfc24a232 (diff) | |
| download | spreadsheet-parsexlsx-5339faa0bccf8a82d1e0eb806e81dc2175630fa8.tar.gz spreadsheet-parsexlsx-5339faa0bccf8a82d1e0eb806e81dc2175630fa8.zip | |
patternType should default to 0 (vfilatov, #41)
Diffstat (limited to 't')
| -rw-r--r-- | t/bug-41.t | 14 | ||||
| -rw-r--r-- | t/data/bug-41.xlsx | bin | 0 -> 54720 bytes |
2 files changed, 14 insertions, 0 deletions
diff --git a/t/bug-41.t b/t/bug-41.t new file mode 100644 index 0000000..7bcb52b --- /dev/null +++ b/t/bug-41.t @@ -0,0 +1,14 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +{ + local $SIG{__WARN__} = sub { fail("unexpected warning: $_[0]") }; + my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-41.xlsx'); + pass('it parses successfully'); +} + +done_testing; diff --git a/t/data/bug-41.xlsx b/t/data/bug-41.xlsx Binary files differnew file mode 100644 index 0000000..d80db9e --- /dev/null +++ b/t/data/bug-41.xlsx |