older Tk doesn't supply the windowing system method
authorTony Cook <tony@develop-help.com>
Mon, 1 Jan 2007 06:19:18 +0000 (06:19 +0000)
committerTony Cook <tony@develop-help.com>
Mon, 1 Jan 2007 06:19:18 +0000 (06:19 +0000)
t/30tkx11.t
t/40tkwin32.t

index f60ce1f..b58b249 100644 (file)
@@ -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';
 
index f8f2ab8..0125e46 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';