open files in raw mode

this is required on windows

3 files changed, 7 insertions, 6 deletions

diff --git a/Changes b/Changes
index c9667dd..3f23a36 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for Spreadsheet-ParseXLSX
 
 {{$NEXT}}
+      - Fix encryption.t test on Windows (marks6i, #60)
 
 0.24  2016-06-25
       - Support scalar refs as input (rshadow, #59)
diff --git a/t/basic.t b/t/basic.t
index a024619..1eb6be8 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -9,8 +9,8 @@ my $filename = 't/data/Test.xlsx';
 
 my @inputs = (
     $filename,
-    do { open my $fh, '<', $filename or die; $fh },
-    do { open my $fh, '<', $filename or die; local $/; my $d = <$fh>; \$d },
+    do { open my $fh, '<:raw:bytes', $filename or die; $fh },
+    do { open my $fh, '<:raw:bytes', $filename or die; local $/; my $d = <$fh>; \$d },
 );
 
 for my $file (@inputs) {
diff --git a/t/encryption.t b/t/encryption.t
index 594701b..2ab510f 100644
--- a/t/encryption.t
+++ b/t/encryption.t
@@ -9,8 +9,8 @@ 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 },
+        do { open my $fh, '<:raw:bytes', $filename or die; $fh },
+        do { open my $fh, '<:raw:bytes', $filename or die; local $/; my $d = <$fh>; \$d },
     );
 
     my $parser = Spreadsheet::ParseXLSX->new(Password => '123q');
@@ -27,8 +27,8 @@ use Spreadsheet::ParseXLSX;
     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 },
+        do { open my $fh, '<:raw:bytes', $filename or die; $fh },
+        do { open my $fh, '<:raw:bytes', $filename or die; local $/; my $d = <$fh>; \$d },
     );
 
     my $parser = Spreadsheet::ParseXLSX->new(Password => '');