final tweaks and 0.1005 released

rcaputo · May 23, 2000 · 33828a3 · 33828a3
1 parent 540beec
commit 33828a3
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/06_tk.t b/tests/06_tk.t
@@ -16,6 +16,12 @@ sub POE::Kernel::ASSERT_DEFAULT () { 1 }
 
 # Skip if Tk isn't here.
 BEGIN {
+  unless ( exists $ENV{'DISPLAY'} and
+           defined $ENV{'DISPLAY'} and
+           length $ENV{'DISPLAY'}
+         ) {
+    eval 'use TestSetup qw(0 no DISPLAY is set)';
+  }
   eval 'use Tk';
   unless (exists $INC{'Tk.pm'}) {
     eval 'use TestSetup qw(0 the Tk module is not installed)';