use strict; use warnings; use Test::More; use Plack::Test::Suite; use Plack::Loader::Shotgun; Plack::Test::Suite->run_server_tests( sub { my($port, $app) = @_; my $loader = Plack::Loader::Shotgun->new; $loader->preload_app(sub { $app }); my $server = $loader->load('Standalone', port => $port, host => '127.0.0.1'); $loader->run($server); }, ); done_testing();