Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

final tweaks and 0.1005 released

  • Loading branch information...
commit 33828a3ecca2f1c265dc67a5645c326f7cca4a12 1 parent 540beec
@rcaputo authored
Showing with 6 additions and 0 deletions.
  1. +6 −0 tests/06_tk.t
View
6 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)';
Please sign in to comment.
Something went wrong with that request. Please try again.