t/tr18561.t

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