2 use warnings FATAL => 'all';
4 use Test::More 'no_plan';
8 use Web::Simple 'EnvTest';
10 sub dispatch_request {
12 my $env = $_[PSGI_ENV];
14 [ "Content-type" => "text/plain" ],
21 use HTTP::Request::Common qw(GET POST);
23 my $app = EnvTest->new;
27 return test_psgi $app->to_psgi_app, sub { shift->($request) };
30 ok run_request(GET 'http://localhost/')->is_success;