From 62f2637261cec449b40f4733d47dc0b42a3fa4f1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 13 Nov 2013 19:27:32 -0500
Subject: make get_filename work (masonik)

---
 t/bug-13.t         |  11 +++++++++++
 t/data/bug-13.xlsx | Bin 0 -> 8639 bytes
 2 files changed, 11 insertions(+)
 create mode 100644 t/bug-13.t
 create mode 100644 t/data/bug-13.xlsx

(limited to 't')

diff --git a/t/bug-13.t b/t/bug-13.t
new file mode 100644
index 0000000..ded3406
--- /dev/null
+++ b/t/bug-13.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-13.xlsx');
+is($wb->get_filename, 't/data/bug-13.xlsx');
+
+done_testing;
diff --git a/t/data/bug-13.xlsx b/t/data/bug-13.xlsx
new file mode 100644
index 0000000..c516813
Binary files /dev/null and b/t/data/bug-13.xlsx differ
-- 
cgit v1.2.3-54-g00ecf