]>
Commit | Line | Data |
---|---|---|
e83b349b TC |
1 | #!perl -w |
2 | use strict; | |
3 | use Test::More; | |
4 | use Imager qw(:all); | |
5 | ||
e5ee047b | 6 | $Imager::formats{"tiff"} |
e83b349b TC |
7 | and plan skip_all => "tiff support available - this tests the lack of it"; |
8 | ||
8d46e5da | 9 | plan tests => 12; |
e83b349b TC |
10 | |
11 | my $im = Imager->new; | |
8d46e5da | 12 | |
e85532b9 | 13 | ok(!$im->read(file=>"TIFF/testimg/comp4.tif"), "should fail to read tif"); |
8d46e5da TC |
14 | cmp_ok($im->errstr, '=~', "format 'tiff' not supported", |
15 | "check no tiff message"); | |
16 | ||
e85532b9 | 17 | ok(!$im->read_multi(file => "TIFF/testimg/comp4.tif"), |
8d46e5da TC |
18 | "should fail to read multi tiff"); |
19 | cmp_ok($im->errstr, '=~', "format 'tiff' not supported", | |
20 | "check no tiff message"); | |
21 | ||
e83b349b | 22 | $im = Imager->new(xsize=>2, ysize=>2); |
8d46e5da | 23 | |
e83b349b | 24 | ok(!$im->write(file=>"testout/notiff.tif"), "should fail to write tiff"); |
8d46e5da TC |
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 | ||
e83b349b TC |
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"); |