Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (15 sloc) 704 Bytes
#!perl -w
use strict;
use Test::More;
use Imager qw(:all);
and plan skip_all => "tiff support available - this tests the lack of it";
plan tests => 6;
my $im = Imager->new;
ok(!$im->read(file=>"testimg/comp4.tif"), "should fail to read tif");
cmp_ok($im->errstr, '=~', "format 'tiff' not supported", "check no tiff message");
$im = Imager->new(xsize=>2, ysize=>2);
ok(!$im->write(file=>"testout/notiff.tif"), "should fail to write tiff");
cmp_ok($im->errstr, '=~', "format 'tiff' not supported", "check no tiff message");
ok(!grep($_ eq 'tiff', Imager->read_types), "check tiff not in read types");
ok(!grep($_ eq 'tiff', Imager->write_types), "check tiff not in write types");
Jump to Line
Something went wrong with that request. Please try again.