[urisagit/Stem.git] / t / event / tk.t

use lib 't/event' ;

unless ( eval { require Stem::Event::Tk } ) {

	print "1..0 # Skip Tk is not installed\n" ;
	exit ;
}

@ARGV = 'tk' ;
eval{ require 'event_test.pl' } ;
#print "ERR [$@]\n" if $@ ;
Commit	Line	Data
4536f655	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 $@ ;