note ABI compatibility restoration

[imager.git] / t / t020masked.t

diff --git a/t/t020masked.t b/t/t020masked.t
index a5200546423a5c068cfcbdcdec3da0969954e90f..95d5f1a089e87a054f34862f541ab2064f8b4481 100644 (file)
--- a/t/t020masked.t
+++ b/t/t020masked.t
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 242;
+use Test::More tests => 244;
 use Imager qw(:all :handy);
 use Imager::Test qw(is_color3 is_fcolor3);
 
@@ -687,6 +687,13 @@ for my $masked (0, 1) { # psampf
            "check values written");
 }
 
+{
+  my $empty = Imager->new;
+  ok(!$empty->masked, "fail to make a masked image from an empty");
+  is($empty->errstr, "masked: empty input image",
+    "check error message");
+}
+
 Imager->close_log();
 
 unless ($ENV{IMAGER_KEEP_FILES}) {