Permalink
Browse files

Make tests sane(r) on Windows by reading test files in binary mode

  • Loading branch information...
1 parent 4cbb375 commit 3e387826f954e1b5cd392bb5a7f9cb37328f9949 Max Maischein committed Feb 25, 2011
Showing with 2 additions and 0 deletions.
  1. +1 −0 t/epeg_basic.t
  2. +1 −0 t/epeg_size_after_resize.t
View
@@ -8,6 +8,7 @@ use Image::Epeg qw(:constants);
# from scalarref
do {
open my $fh, "t/test.jpg" or die $!;
+ binmode $fh;
my $src = do { local $/; <$fh> };
close $fh;
@@ -11,6 +11,7 @@ my $rawimgsize = $i[7];
my $f = undef;
{
open my $fh, "t/test.jpg";
+ binmode $fh;
$f .= $_ while <$fh>;
close $fh;
}

0 comments on commit 3e38782

Please sign in to comment.