]>
Commit | Line | Data |
---|---|---|
5daa8f70 TC |
1 | #!perl -w |
2 | # regression test for RT issue 18561 | |
3 | # | |
4 | use strict; | |
5 | use Test::More tests => 1; | |
6 | eval { | |
7 | use Imager; | |
8 | ||
9 | my $i = Imager->new( | |
10 | xsize => 50, | |
11 | ysize => 50, | |
12 | ); | |
13 | ||
14 | $i->setpixel( | |
15 | x => 10, | |
16 | y => 10, | |
17 | color => [0, 0, 0], | |
18 | ); | |
19 | }; | |
20 | ok(!$@, "shouldn't crash") | |
21 | or print "# $@\n"; |