prefer static first

[imager.git] / t / t21draw.t

diff --git a/t/t21draw.t b/t/t21draw.t
index 0fb5b2e529647909f07a1a50afa9ef0a5d16d7b2..a1f7f2ab71278c26b554a446465d49534e4e788d 100644 (file)
--- a/t/t21draw.t
+++ b/t/t21draw.t
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 244;
+use Test::More tests => 256;
 use Imager ':all';
 use Imager::Test qw(is_color3 is_image);
 use constant PI => 3.14159265358979;
@@ -297,6 +297,25 @@ my $white = '#FFFFFF';
   }
 }
 
+{
+  my $empty = Imager->new;
+  ok(!$empty->box(), "can't draw box to empty image");
+  is($empty->errstr, "box: empty input image", "check error message");
+  ok(!$empty->arc(), "can't draw arc to empty image");
+  is($empty->errstr, "arc: empty input image", "check error message");
+  ok(!$empty->line(x1 => 0, y1 => 0, x2 => 10, y2 => 0),
+     "can't draw line to empty image");
+  is($empty->errstr, "line: empty input image", "check error message");
+  ok(!$empty->polyline(points => [ [ 0, 0 ], [ 10, 0 ] ]),
+     "can't draw polyline to empty image");
+  is($empty->errstr, "polyline: empty input image", "check error message");
+  ok(!$empty->polygon(points => [ [ 0, 0 ], [ 10, 0 ], [ 0, 10 ] ]),
+     "can't draw polygon to empty image");
+  is($empty->errstr, "polygon: empty input image", "check error message");
+  ok(!$empty->flood_fill(x => 0, y => 0), "can't flood fill to empty image");
+  is($empty->errstr, "flood_fill: empty input image", "check error message");
+}
+
 
 malloc_state();