From aef74127ef74114e7fb30d16037b810ed93635d7 Mon Sep 17 00:00:00 2001 From: zhouzhen1 Date: Sat, 3 Oct 2015 15:42:07 +0800 Subject: add support for having absolute path in internal xml file targets --- t/data/target-abspath.xlsx | Bin 0 -> 6927 bytes t/target-abspath.t | 17 +++++++++++++++++ 2 files changed, 17 insertions(+) create mode 100644 t/data/target-abspath.xlsx create mode 100644 t/target-abspath.t (limited to 't') diff --git a/t/data/target-abspath.xlsx b/t/data/target-abspath.xlsx new file mode 100644 index 0000000..2ca7970 Binary files /dev/null and b/t/data/target-abspath.xlsx differ 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; -- cgit v1.2.3-54-g00ecf