use strict; use warnings; use Test::More; my $tests; plan tests => $tests; use App::Wack; use App::Wack::Signals; App::Wack::Signals::setup(); App::Wack::setup(); my $config = App::Wack::get_config(); #App::Wack::Signals::run( $config->{recent_searches} ); $ENV{WACK_TESTING} = 1; # no AUTOLOAD printing our @result; { no warnings 'redefine'; sub App::Wack::Signals::_add_result { push @::result, \@_; } } my $gladexml = App::Wack::Signals::get_gladexml(); { @result = (); # set search value $gladexml->get_widget('search-text')->child->set_text("perl"); my $dir = $gladexml->get_widget('directory')->set_text("t/files"); #$gladexml->get_widget('search-button')->send_signal('clicked'); ok(1); BEGIN { $tests += 1; } }