Scheduler, more tests, almost feature-complete, todo: YAML

[catagits/Catalyst-Plugin-Scheduler.git] / t / lib / Catalyst / Plugin / PluginTest.pm

diff --git a/t/lib/Catalyst/Plugin/PluginTest.pm b/t/lib/Catalyst/Plugin/PluginTest.pm
new file mode 100644 (file)
index 0000000..91903fb
--- /dev/null
+++ b/t/lib/Catalyst/Plugin/PluginTest.pm
@@ -0,0 +1,29 @@
+package Catalyst::Plugin::PluginTest;
+
+use strict;
+use warnings;
+use NEXT;
+
+sub setup {
+    my $c = shift;
+    $c->NEXT::setup(@_);
+    
+    if ( $c->can('schedule') ) {
+        $c->schedule(
+            at    => '* * * * *',
+            event => \&plugin_test,
+        );
+    }
+}
+
+sub plugin_test {
+    my $c = shift;
+    
+    # write out a file so the test knows we did something
+    my $fh = IO::File->new( $c->path_to( 'plugin_test.log' ), 'w' )
+        or die "Unable to write log file: $!";
+    close $fh;
+}
+
+1;
+