- t/30tkx11.t now provides a default gemoetry to prevent

[imager-screenshot.git] / t / 30tkx11.t

diff --git a/t/30tkx11.t b/t/30tkx11.t
index b58b249..3eb138a 100644 (file)
--- a/t/30tkx11.t
+++ b/t/30tkx11.t
@@ -23,6 +23,8 @@ $mw->can('windowingsystem')
 $mw->windowingsystem eq 'x11'
   or plan skip_all => 'Tk windowing system not X11';
 
+eval { $mw->geometry('+10+10'); };
+
 plan tests => 1;
 
 my $im;