t/tr18561.t

   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";