Static::Simple: Added serve_static_file patch from groditi, plus tests

[catagits/Catalyst-Plugin-Static-Simple.git] / t / lib / TestApp.pm

diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm
index fafacea..001fb01 100644 (file)
--- a/t/lib/TestApp.pm
+++ b/t/lib/TestApp.pm
@@ -2,17 +2,23 @@ package TestApp;
 \r
 use strict;\r
 use Catalyst;\r
+use File::Spec::Functions;\r
+use FindBin;\r
 \r
 our $VERSION = '0.01';\r
 \r
 TestApp->config(\r
     name => 'TestApp',\r
+    debug => 1,\r
 );\r
 \r
 my @plugins = qw/Static::Simple/;\r
 \r
 # load the SubRequest plugin if available\r
-eval "use Catalyst::Plugin::SubRequest 0.08";\r
+eval { \r
+    require Catalyst::Plugin::SubRequest; \r
+    die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08';\r
+};\r
 push @plugins, 'SubRequest' unless ($@);\r
 \r
 TestApp->setup( @plugins );\r
@@ -41,4 +47,20 @@ sub subtest2 : Local {
     $c->res->output( 'subtest2 ok' );\r
 }\r
 \r
+sub serve_static : Local {\r
+    my ( $self, $c ) = @_;\r
+    \r
+    my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' );\r
+    \r
+    $c->serve_static_file( $file );\r
+}\r
+\r
+sub serve_static_404 : Local {\r
+    my ( $self, $c ) = @_;\r
+    \r
+    my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' );\r
+    \r
+    $c->serve_static_file( $file );\r
+}\r
+\r
 1;\r