older Tk doesn't supply the windowing system method

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';
 

diff --git a/t/40tkwin32.t b/t/40tkwin32.t
index f8f2ab842576325a867d0a7993ee01e16a71eb4d..0125e462010722003beb63b94bf85fca329ae42a 100644 (file)
--- a/t/40tkwin32.t
+++ b/t/40tkwin32.t
@@ -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';