try to fix test failing on chorny's 5.18.2 smoker
authorTony Cook <tony@develop-help.com>
Wed, 13 Feb 2019 07:04:31 +0000 (18:04 +1100)
committerTony Cook <tony@develop-help.com>
Wed, 13 Feb 2019 07:06:53 +0000 (18:06 +1100)
or at least diagnose it

t/200-file/010-iolayer.t

index 5a820fe..9e1b56d 100644 (file)
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
 #!perl -w
 use strict;
-use Test::More tests => 291;
+use Test::More;
 use Imager::Test qw(is_image);
 # for SEEK_SET etc, Fcntl doesn't provide these in 5.005_03
 use IO::Seekable;
 use Imager::Test qw(is_image);
 # for SEEK_SET etc, Fcntl doesn't provide these in 5.005_03
 use IO::Seekable;
@@ -875,12 +875,16 @@ SKIP:
   my $im = Imager->new(xsize => 10, ysize => 10);
   $foo = "";
   open my $fh2, ">", \$foo;
   my $im = Imager->new(xsize => 10, ysize => 10);
   $foo = "";
   open my $fh2, ">", \$foo;
+  binmode $fh2;
   ok($im->write(fh => $fh2, type => "pnm"), "can write image to scalar fh")
     or print "# ", $im->errstr, "\n";
 
   close $fh2;
   ok($im->write(fh => $fh2, type => "pnm"), "can write image to scalar fh")
     or print "# ", $im->errstr, "\n";
 
   close $fh2;
+  is(unpack("H*", $foo), "50360a2343524541544f523a20496d616765720a31302031300a3235350a".("00" x 300),
+     "check we got the right 'file' context");
   my $tmp = $foo;
   open my $fh3, "<", \$foo;
   my $tmp = $foo;
   open my $fh3, "<", \$foo;
+  binmode $fh3;
   my $im2 = Imager->new(fh => $fh3);
  SKIP:
   {
   my $im2 = Imager->new(fh => $fh3);
  SKIP:
   {
@@ -893,6 +897,7 @@ SKIP:
   }
   close $fh3;
   open my $fh4, "<", \$foo;
   }
   close $fh3;
   open my $fh4, "<", \$foo;
+  binmode $fh3;
   my $im3 = Imager->new;
  SKIP:
   {
   my $im3 = Imager->new;
  SKIP:
   {
@@ -974,6 +979,8 @@ unless ($ENV{IMAGER_KEEP_FILES}) {
   unlink "testout/t07.ppm", "testout/t07iolayer.log";
 }
 
   unlink "testout/t07.ppm", "testout/t07iolayer.log";
 }
 
+done_testing();
+
 sub eof_read {
   my ($max_len) = @_;
 
 sub eof_read {
   my ($max_len) = @_;