t/200-file/230-notiff.t

   1 #!perl -w
   2 use strict;
   3 use Test::More;
   4 use Imager qw(:all);
   5
   6 $Imager::formats{"tiff"}
   7   and plan skip_all => "tiff support available - this tests the lack of it";
   8
   9 plan tests => 12;
  10
  11 my $im = Imager->new;
  12
  13 ok(!$im->read(file=>"TIFF/testimg/comp4.tif"), "should fail to read tif");
  14 cmp_ok($im->errstr, '=~', "format 'tiff' not supported",
  15        "check no tiff message");
  16
  17 ok(!$im->read_multi(file => "TIFF/testimg/comp4.tif"),
  18    "should fail to read multi tiff");
  19 cmp_ok($im->errstr, '=~', "format 'tiff' not supported",
  20        "check no tiff message");
  21
  22 $im = Imager->new(xsize=>2, ysize=>2);
  23
  24 ok(!$im->write(file=>"testout/notiff.tif"), "should fail to write tiff");
  25 cmp_ok($im->errstr, '=~', "format 'tiff' not supported",
  26        "check no tiff message");
  27 ok(!-e "testout/notiff.tif", "file shouldn't be created");
  28
  29 ok(!Imager->write_multi({file=>"testout/notiff.tif"}, $im, $im),
  30    "should fail to write multi tiff");
  31 cmp_ok($im->errstr, '=~', "format 'tiff' not supported",
  32        "check no tiff message");
  33 ok(!-e "testout/notiff.tif", "file shouldn't be created");
  34
  35 ok(!grep($_ eq 'tiff', Imager->read_types), "check tiff not in read types");
  36 ok(!grep($_ eq 'tiff', Imager->write_types), "check tiff not in write types");