From 529f114e86dfd360db60df22bbb75830b219b12a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 25 Jun 2016 13:59:34 -0400
Subject: support scalar refs as inputs too

for compatibility with Spreadsheet::ParseExcel
---
 t/basic.t      |  8 +++++++-
 t/encryption.t | 35 ++++++++++++++++++++++++++---------
 2 files changed, 33 insertions(+), 10 deletions(-)

(limited to 't')

diff --git a/t/basic.t b/t/basic.t
index dde23e6..a024619 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -7,7 +7,13 @@ use Spreadsheet::ParseXLSX;
 
 my $filename = 't/data/Test.xlsx';
 
-for my $file ($filename, do { open my $fh, '<', $filename or die; $fh }) {
+my @inputs = (
+    $filename,
+    do { open my $fh, '<', $filename or die; $fh },
+    do { open my $fh, '<', $filename or die; local $/; my $d = <$fh>; \$d },
+);
+
+for my $file (@inputs) {
     my $wb = Spreadsheet::ParseXLSX->new->parse($file);
     isa_ok($wb, 'Spreadsheet::ParseExcel::Workbook');
 
diff --git a/t/encryption.t b/t/encryption.t
index 77f7c38..594701b 100644
--- a/t/encryption.t
+++ b/t/encryption.t
@@ -6,22 +6,39 @@ use Test::More;
 use Spreadsheet::ParseXLSX;
 
 {
+    my $filename = 't/data/encryption-agile-123q.xlsx';
+    my @inputs = (
+        $filename,
+        do { open my $fh, '<', $filename or die; $fh },
+        do { open my $fh, '<', $filename or die; local $/; my $d = <$fh>; \$d },
+    );
+
     my $parser = Spreadsheet::ParseXLSX->new(Password => '123q');
-    my $workbook = $parser->parse("t/data/encryption-agile-123q.xlsx");
+    for my $input (@inputs) {
+        my $workbook = $parser->parse($input);
 
-    my $worksheet = $workbook->worksheet(0);
-    my $cell = $worksheet->get_cell(1, 1);
-    is($cell->value, 'abcdefgABCDEFG');
+        my $worksheet = $workbook->worksheet(0);
+        my $cell = $worksheet->get_cell(1, 1);
+        is($cell->value, 'abcdefgABCDEFG');
+    }
 }
 
 {
-    open my $fh, "t/data/encryption-standard-default-password.xlsx" or die;
+    my $filename = 't/data/encryption-standard-default-password.xlsx';
+    my @inputs = (
+        $filename,
+        do { open my $fh, '<', $filename or die; $fh },
+        do { open my $fh, '<', $filename or die; local $/; my $d = <$fh>; \$d },
+    );
+
     my $parser = Spreadsheet::ParseXLSX->new(Password => '');
-    my $workbook = $parser->parse($fh);
+    for my $input (@inputs) {
+        my $workbook = $parser->parse($input);
 
-    my $worksheet = $workbook->worksheet(0);
-    my $cell = $worksheet->get_cell(22, 8);
-    is($cell->value, 1911);
+        my $worksheet = $workbook->worksheet(0);
+        my $cell = $worksheet->get_cell(22, 8);
+        is($cell->value, 1911);
+    }
 }
 
 done_testing;
-- 
cgit v1.2.3-54-g00ecf