older Tk doesn't supply the windowing system method

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

diff --git a/t/30tkx11.t b/t/30tkx11.t
index f60ce1f67855ac63adf94e8daca4556ca8c37e9a..b58b249cdff92bca9566706b6e72e21f16cc00a1 100644 (file)
--- a/t/30tkx11.t
+++ b/t/30tkx11.t
@@ -18,6 +18,8 @@ $@
 
 my $mw = Tk::MainWindow->new;
 
+$mw->can('windowingsystem')
+  or plan skip_all => 'Cannot determine windowing system';
 $mw->windowingsystem eq 'x11'
   or plan skip_all => 'Tk windowing system not X11';