6 no warnings 'redefine';
9 use lib "$FindBin::Bin/lib";
11 use Test::More tests => 3;
12 use Catalyst::Test 'TestApp';
14 TestApp->config->{ static }->{ dirs } = [ qr{stuff/} ];
15 my $orig_sub = *Catalyst::Plugin::Static::Simple::prepare_action{CODE};
17 *Catalyst::Plugin::Static::Simple::prepare_action = sub {
22 ok ($@, '$@ has a value.');
23 return $orig_sub->( $c );
26 ok( my $res = request("http://localhost/"), 'request ok' );
27 ok( $res->code == 200, q{Previous error doesn't crash static::simple} );