add new comparison method rgb_difference that resembles arithmetical difference per...
[imager.git] / JPEG / t / t20limit.t
1 #!perl -w
2 use strict;
3 use Imager;
4 use Test::More tests => 12;
5
6 my $max_dim = 65500;
7
8 {
9   # JPEG files are limited to 0xFFFF x 0xFFFF pixels
10   # but libjpeg sets the limit lower to avoid overflows
11   {
12     my $im = Imager->new(xsize => 1+$max_dim, ysize => 1);
13     my $data = '';
14     ok(!$im->write(data => \$data, type => "jpeg"),
15        "fail to write too wide an image");
16     is($im->errstr, "image too large for JPEG",
17        "check error message");
18   }
19  SKIP:
20   {
21     my $im = Imager->new(xsize => $max_dim, ysize => 1);
22     $im->box(fill => { hatch => "check4x4" });
23     my $data = '';
24     ok($im->write(data => \$data, type => "jpeg"),
25        "write image at width limit")
26       or print "# ", $im->errstr, "\n";
27     my $im2 = Imager->new(data => $data, ftype => "jpeg");
28     ok($im2, "read it ok")
29       or skip("cannot load the wide image", 1);
30     is($im->getwidth, $max_dim, "check width");
31     is($im->getheight, 1, "check height");
32   }
33   {
34     my $im = Imager->new(xsize => 1, ysize => 1+$max_dim);
35     my $data = '';
36     ok(!$im->write(data => \$data, type => "jpeg"),
37        "fail to write too tall an image");
38     is($im->errstr, "image too large for JPEG",
39        "check error message");
40   }
41  SKIP:
42   {
43     my $im = Imager->new(xsize => 1, ysize => $max_dim);
44     $im->box(fill => { hatch => "check2x2" });
45     my $data = '';
46     ok($im->write(data => \$data, type => "jpeg"),
47        "write image at width limit");
48     my $im2 = Imager->new(data => $data, ftype => "jpeg");
49     ok($im2, "read it ok")
50       or skip("cannot load the wide image", 1);
51     is($im->getwidth, 1, "check width");
52     is($im->getheight, $max_dim, "check height");
53   }
54 }