diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-31 15:57:01 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-31 15:57:01 -0400 |
| commit | 2ed49b3b2de0c8fd2809435ef85dc8dd0b2708a1 (patch) | |
| tree | 69616dd74d3d88c318b84c94a068436991458ede /t | |
| parent | f0ffc1ee72e17892160095805448d9030cbcbe0d (diff) | |
| download | spreadsheet-parsexlsx-2ed49b3b2de0c8fd2809435ef85dc8dd0b2708a1.tar.gz spreadsheet-parsexlsx-2ed49b3b2de0c8fd2809435ef85dc8dd0b2708a1.zip | |
be a bit more specific when picking out xml nodes (fixes #5)
Diffstat (limited to 't')
| -rw-r--r-- | t/bug-5.t | 11 | ||||
| -rw-r--r-- | t/data/bug-5.xlsx | bin | 0 -> 13815 bytes |
2 files changed, 11 insertions, 0 deletions
diff --git a/t/bug-5.t b/t/bug-5.t new file mode 100644 index 0000000..495582a --- /dev/null +++ b/t/bug-5.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-5.xlsx'); +is($wb->worksheet_count, 1); + +done_testing; diff --git a/t/data/bug-5.xlsx b/t/data/bug-5.xlsx Binary files differnew file mode 100644 index 0000000..b5ca8c2 --- /dev/null +++ b/t/data/bug-5.xlsx |