7 use lib "$FindBin::Bin/lib";
9 use Storable qw/lock_store lock_retrieve/;
12 use Catalyst::Test 'TestApp';
14 our $STATE = "$FindBin::Bin/lib/TestApp/scheduler.state";
17 trigger => 'every_minute',
18 event => '/cron/every_minute',
22 TestApp->config->{scheduler}->{hosts_allow} = '1.2.3.4';
24 # test that the event does not execute
26 ok( my $res = request('http://localhost/?schedule_trigger=every_minute'), 'request ok' );
27 is( $res->content, 'default', 'response ok' );
28 is( -e "$FindBin::Bin/lib/TestApp/every_minute.log", undef, 'every_minute did not execute, ok' );
29 unlink "$FindBin::Bin/lib/TestApp/every_minute.log";
33 TestApp->config->{scheduler}->{hosts_allow} = [ '1.2.3.4', '127.0.0.1' ];
35 # test that the event does execute
37 ok( my $res = request('http://localhost/?schedule_trigger=every_minute'), 'request ok' );
38 is( $res->content, 'default', 'response ok' );
39 is( -e "$FindBin::Bin/lib/TestApp/every_minute.log", 1, 'every_minute executed ok' );
40 unlink "$FindBin::Bin/lib/TestApp/every_minute.log";