1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/usr/bin/env perl use strict; use warnings; use Test::More; use Plack::Test::Agent; my $app = sub { return [ 200, [], [ 'Hello' ] ] }; my $agent = Plack::Test::Agent->new( server => 'HTTP::Server::PSGI', app => $app, ); my $res = $agent->get( '/' ); is $res->content, 'Hello'; done_testing;