t/event/tk.t

   1 use lib 't/event' ;
   2
   3 unless ( eval { require Stem::Event::Tk } ) {
   4
   5         print "1..0 # Skip Tk is not installed\n" ;
   6         exit ;
   7 }
   8
   9 @ARGV = 'tk' ;
  10 eval{ require 'event_test.pl' } ;
  11 #print "ERR [$@]\n" if $@ ;