summaryrefslogtreecommitdiffstats
path: root/t/basic.t
diff options
context:
space:
mode:
Diffstat (limited to 't/basic.t')
-rw-r--r--t/basic.t8
1 files changed, 7 insertions, 1 deletions
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');