Scheduler, basic features working, still lots todo

[catagits/Catalyst-Plugin-Scheduler.git] / t / lib / TestApp / Controller / Cron.pm

diff --git a/t/lib/TestApp/Controller/Cron.pm b/t/lib/TestApp/Controller/Cron.pm
new file mode 100644 (file)
index 0000000..a542db4
--- /dev/null
+++ b/t/lib/TestApp/Controller/Cron.pm
@@ -0,0 +1,26 @@
+package TestApp::Controller::Cron;
+
+use strict;
+use warnings;
+use base 'Catalyst::Controller';
+use IO::File;
+
+sub every_minute : Private {
+    my ( $self, $c ) = @_;
+    
+    # write out a file so the test knows we did something
+    my $fh = IO::File->new( $c->path_to( 'every_minute.log' ), 'w' )
+        or die "Unable to write log file: $!";
+    close $fh;
+    
+    # this tests that events cannot change the output
+    $c->res->output( 'every_minute' );
+}
+
+sub test_errors : Private {
+    my ( $self, $c ) = @_;
+    
+    die 'oops';
+}
+
+1;