Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (20 sloc) 309 Bytes
#!perl -w
# regression test for RT issue 18561
#
use strict;
use lib 't';
use Test::More tests => 1;
eval {
use Imager;
my $i = Imager->new(
xsize => 50,
ysize => 50,
);
$i->setpixel(
x => 10,
y => 10,
color => [0, 0, 0],
);
};
ok(!$@, "shouldn't crash")
or print "# $@\n";
Something went wrong with that request. Please try again.