#!perl -w
use strict;
use Imager;
use Test::More tests => 12;
my $max_dim = 65500;
{
# JPEG files are limited to 0xFFFF x 0xFFFF pixels
# but libjpeg sets the limit lower to avoid overflows
{
my $im = Imager->new(xsize => 1+$max_dim, ysize => 1);
my $data = '';
ok(!$im->write(data => \$data, type => "jpeg"),
"fail to write too wide an image");
is($im->errstr, "image too large for JPEG",
"check error message");
}
SKIP:
{
my $im = Imager->new(xsize => $max_dim, ysize => 1);
$im->box(fill => { hatch => "check4x4" });
my $data = '';
ok($im->write(data => \$data, type => "jpeg"),
"write image at width limit")
or print "# ", $im->errstr, "\n";
my $im2 = Imager->new(data => $data, ftype => "jpeg");
ok($im2, "read it ok")
or skip("cannot load the wide image", 1);
is($im->getwidth, $max_dim, "check width");
is($im->getheight, 1, "check height");
}
{
my $im = Imager->new(xsize => 1, ysize => 1+$max_dim);
my $data = '';
ok(!$im->write(data => \$data, type => "jpeg"),
"fail to write too tall an image");
is($im->errstr, "image too large for JPEG",
"check error message");
}
SKIP:
{
my $im = Imager->new(xsize => 1, ysize => $max_dim);
$im->box(fill => { hatch => "check2x2" });
my $data = '';
ok($im->write(data => \$data, type => "jpeg"),
"write image at width limit");
my $im2 = Imager->new(data => $data, ftype => "jpeg");
ok($im2, "read it ok")
or skip("cannot load the wide image", 1);
is($im->getwidth, 1, "check width");
is($im->getheight, $max_dim, "check height");
}
}