X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/618a3282ea8fbe37bda2659ff2d093a6e7880c8a..a6eb1f94b51a50d11ec7435d1a8f680ec4fb8689:/t/t62compose.t

diff --git a/t/t62compose.t b/t/t62compose.t
index d7e415bd..cbf8af30 100644
--- a/t/t62compose.t
+++ b/t/t62compose.t
@@ -1,7 +1,7 @@
 #!perl -w
 use strict;
 use Imager qw(:handy);
-use Test::More tests => 114;
+use Test::More tests => 120;
 use Imager::Test qw(is_image is_imaged);
 
 -d "testout" or mkdir "testout";
@@ -239,6 +239,21 @@ for my $type_id (sort keys %types) {
   }
 }
 
+{
+  my $empty = Imager->new;
+  my $good = Imager->new(xsize => 1, ysize => 1);
+  ok(!$empty->compose(src => $good), "can't compose to empty image");
+  is($empty->errstr, "compose: empty input image",
+     "check error message");
+  ok(!$good->compose(src => $empty), "can't compose from empty image");
+  is($good->errstr, "compose: empty input image (for src)",
+     "check error message");
+  ok(!$good->compose(src => $good, mask => $empty),
+     "can't compose with empty mask");
+  is($good->errstr, "compose: empty input image (for mask)",
+     "check error message");
+}
+
 unless ($ENV{IMAGER_KEEP_FILES}) {
   unlink @files;
 }