diff options
author | zhouzhen1 <zhouzhen1@gmail.com> | 2015-10-03 15:42:07 +0800 |
---|---|---|
committer | zhouzhen1 <zhouzhen1@gmail.com> | 2015-10-03 15:42:07 +0800 |
commit | aef74127ef74114e7fb30d16037b810ed93635d7 (patch) | |
tree | cb8975e4e6a196418141986aba8aa152d3566f5d /t | |
parent | 2524f3b910282998be8fb967eb90d50a7f38ec3f (diff) | |
download | spreadsheet-parsexlsx-aef74127ef74114e7fb30d16037b810ed93635d7.tar.gz spreadsheet-parsexlsx-aef74127ef74114e7fb30d16037b810ed93635d7.zip |
add support for having absolute path in internal xml file targets
Diffstat (limited to 't')
-rw-r--r-- | t/data/target-abspath.xlsx | bin | 0 -> 6927 bytes | |||
-rw-r--r-- | t/target-abspath.t | 17 |
2 files changed, 17 insertions, 0 deletions
diff --git a/t/data/target-abspath.xlsx b/t/data/target-abspath.xlsx Binary files differnew file mode 100644 index 0000000..2ca7970 --- /dev/null +++ b/t/data/target-abspath.xlsx diff --git a/t/target-abspath.t b/t/target-abspath.t new file mode 100644 index 0000000..e79445b --- /dev/null +++ b/t/target-abspath.t @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb; +eval { + $wb = Spreadsheet::ParseXLSX->new->parse('t/data/target-abspath.xlsx'); +}; +if ($@) { + diag $@; +} +ok((not $@), "parsing target-abspath.xlsx ok"); + +done_testing; |