older Tk doesn't supply the windowing system method
[imager-screenshot.git] / t / 40tkwin32.t
index f8f2ab842576325a867d0a7993ee01e16a71eb4d..0125e462010722003beb63b94bf85fca329ae42a 100644 (file)
@@ -18,6 +18,9 @@ eval {
 };
 $@ and plan skip_all => 'Cannot create a window in Tk';
 
+$mw->can('windowingsystem')
+  or plan skip_all => 'Cannot determine windowing system';
+
 $mw->windowingsystem eq 'win32'
   or plan skip_all => 'Tk windowing system not Win32';