X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;h=001fb01b93d1a526fc42e7552ab4fcdafc788d87;hb=ab02ca0d1f663f389eef9d4b000c05392304c06a;hp=fafaceabcec05d7615a69713e172f789f895773e;hpb=2cb3d58588fcff99a17ff2db819f4c9cab6d10d9;p=catagits%2FCatalyst-Plugin-Static-Simple.git diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index fafacea..001fb01 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -2,17 +2,23 @@ package TestApp; use strict; use Catalyst; +use File::Spec::Functions; +use FindBin; our $VERSION = '0.01'; TestApp->config( name => 'TestApp', + debug => 1, ); my @plugins = qw/Static::Simple/; # load the SubRequest plugin if available -eval "use Catalyst::Plugin::SubRequest 0.08"; +eval { + require Catalyst::Plugin::SubRequest; + die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08'; +}; push @plugins, 'SubRequest' unless ($@); TestApp->setup( @plugins ); @@ -41,4 +47,20 @@ sub subtest2 : Local { $c->res->output( 'subtest2 ok' ); } +sub serve_static : Local { + my ( $self, $c ) = @_; + + my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' ); + + $c->serve_static_file( $file ); +} + +sub serve_static_404 : Local { + my ( $self, $c ) = @_; + + my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' ); + + $c->serve_static_file( $file ); +} + 1;