changed the way test dumping a request works

[catagits/Catalyst-Runtime.git] / t / lib / TestFromPSGI.pm

package TestFromPSGI;

use Moose;
use Plack::Middleware::Static;
use Plack::App::File;
use Catalyst;

extends 'Catalyst';

my $static = Plack::Middleware::Static->new(
  path => qr{^/static/}, root => TestMiddleware->path_to('share'));

__PACKAGE__->config(
  'Controller::Root', { namespace => '' },
  'psgi_middleware', [
    'Head',
    $static,
    'Static', { path => qr{^/static2/}, root => TestMiddleware->path_to('share') },
    'Runtime',
    '+TestMiddleware::Custom', { path => qr{^/static3/}, root => TestMiddleware->path_to('share') },
    sub {
      my $app = shift;
      return sub {
        my $env = shift;
        if($env->{PATH_INFO} =~m/forced/) {
          Plack::App::File->new(file=>TestMiddleware->path_to(qw/share static forced.txt/))
            ->call($env);
        } else {
          return $app->($env);
        }
      },
    },

  ],
);

__PACKAGE__->setup;