view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

use Plack::Loader;
use Plack::Builder;
use Test::TCP;

Test::TCP::test_tcp(
    client => sub {
        my $port = shift;
        my $ua   = LWP::UserAgent->new;

        my $request = HTTP::Request->new(GET => "http://127.0.0.1:$port/");
        my $res = $ua->request($request);
        ok($res->is_success, "server responded");
        like($res->content, qr/this is a warning/, "log message send");
    },
    server => sub {
        my $port = shift;

        use Dancer ':syntax';

        setting apphandler => 'PSGI';