Revision history for Perl extension Catalyst::Plugin::Static::Simple
+ - Move actions out of TestApp into a Root controller as
+ this is now deprecated.
+
0.22 2009-08-21 18:14:59
- Add tests for delivering empty files.
- Fix those tests by depending on Catalyst-Runtime 5.80008.
is( $res->code, 200, '200 ok' );
# .pm can be both application/x-pagemaker or text/x-perl, so only check for a slash
like( $res->content_type, qr{/}, 'content-type ok' );
-like( $res->content, qr/serve_static/, 'content of serve_static ok' );
+like( $res->content, qr/package TestApp/, 'content of serve_static ok' );
# test getting a non-existant file via serve_static_file
ok( $res = request('http://localhost/serve_static_404'), 'request ok' );
-is( $res->code, 404, '404 ok' );
\ No newline at end of file
+is( $res->code, 404, '404 ok' );
\r
use strict;\r
use Catalyst;\r
-use File::Spec::Functions;\r
use FindBin;\r
\r
our $VERSION = '0.01';\r
return [ $c->config->{root} . '/incpath' ];\r
}\r
\r
-sub default : Private {\r
- my ( $self, $c ) = @_;\r
- \r
- $c->res->output( 'default' );\r
-}\r
-\r
-sub subtest : Local {\r
- my ( $self, $c ) = @_;\r
-\r
- $c->res->output( $c->subreq('/subtest2') );\r
-}\r
-\r
-sub subtest2 : Local {\r
- my ( $self, $c ) = @_;\r
- \r
- $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
--- /dev/null
+package TestApp::Controller::Root;\r
+\r
+use strict;\r
+use warnings;\r
+use File::Spec::Functions;\r
+\r
+use base qw/Catalyst::Controller/;\r
+\r
+__PACKAGE__->config(namespace => '');\r
+\r
+sub default : Private {\r
+ my ( $self, $c ) = @_;\r
+ \r
+ $c->res->output( 'default' );\r
+}\r
+\r
+sub subtest : Local {\r
+ my ( $self, $c ) = @_;\r
+\r
+ $c->res->output( $c->subreq('/subtest2') );\r
+}\r
+\r
+sub subtest2 : Local {\r
+ my ( $self, $c ) = @_;\r
+ \r
+ $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