From 529f114e86dfd360db60df22bbb75830b219b12a Mon Sep 17 00:00:00 2001 From: Jesse Luehrs 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 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 't/basic.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'); -- cgit v1.2.3-54-g00ecf