X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/785364c151cf529ac6182c41a15c7bce110d1a8c..HEAD:/t/300-transform/060-map.t

diff --git a/t/300-transform/060-map.t b/t/300-transform/060-map.t
index d8d8a18f..67a8744e 100644
--- a/t/300-transform/060-map.t
+++ b/t/300-transform/060-map.t
@@ -73,4 +73,14 @@ SKIP: {
   ok($out, "map done");
 }
 
+{ # CID 185300
+  # the check for whether a map() channel was used was incorrect
+  my @map1 = ( 0 .. 255 );
+  my $im = test_image;
+  my $cmp = test_image->copy;
+  ok($im->map(maps => [ \@map1, undef, \@map1 ]),
+     "map with gap in maps");
+  is_image($im, $cmp, "should be no changes");
+}
+
 done_testing();