use strict;
use warnings;
use Plack::Test;
use Plack::Util;
use Test::More;
my $app = Plack::Util::load_psgi 'Extended.psgi';
test_psgi
app => $app,
client => sub {
my $cb = shift;
my $req = HTTP::Request->new(GET => 'http://localhost/', [
'User-Agent' => 'DoCoMo/1.0/P502i/c10',
]);
my $res = $cb->($req);
is $res->code, 200;
like $res->content, qr/DoCoMo world!/;
};
done_testing;