Tagged Scheduler 0.02

diff --git a/t/08long.t b/t/08long.t
new file mode 100644 (file)
index 0000000..cef1651
--- /dev/null
+++ b/t/08long.t
@@ -0,0 +1,39 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use Test::More;
+
+plan skip_all 
+    => 'set TEST_LONG to enable this test.  It takes about 1 minute to run.' 
+    unless $ENV{TEST_LONG};
+    
+plan tests => 6;
+use Catalyst::Test 'TestApp';
+
+TestApp->schedule(
+    at    => '* * * * *',
+    event => '/cron/every_minute',
+);
+
+# test that the event does not execute when we first start up
+{
+    ok( my $res = request('http://localhost/'), 'request ok' );
+    is( $res->content, 'default', 'response ok' );
+    is( -e "$FindBin::Bin/lib/TestApp/every_minute.log", undef, 'every_minute did not execute, ok' );
+    unlink "$FindBin::Bin/lib/TestApp/every_minute.log";
+}
+
+# wait for a minute
+sleep 61;
+
+# test that the event does execute
+{
+    ok( my $res = request('http://localhost/'), 'request ok' );
+    is( $res->content, 'default', 'response ok' );
+    is( -e "$FindBin::Bin/lib/TestApp/every_minute.log", 1, 'every_minute executed ok' );
+    unlink "$FindBin::Bin/lib/TestApp/every_minute.log";
+}