apptestみたいなの作ったら便利

package t::Util;
use strict;
use warnings;
use lib qw(
    ./local/perl5
);
use Plack::Test qw(test_psgi);
use Plack::Util ();
use File::Spec ();
use Exporter 'import';
our @EXPORT = qw/apptest/;

my $psgi_file = File::Spec->catfile('script', 'app.psgi');
my $app = Plack::Util::load_psgi($psgi_file);
sub apptest {
    my ($req, $test_code) = @_;
   
    test_psgi $app, sub {
        my $cb = shift;
        my $res = $cb->($req);
        $test_code->($res);
    };
}

1;

#!perl -w
use strict;
use Test::More;
use t::Util;
use HTTP::Request::Common;

subtest 'GET /' => sub {
    my $req = GET '/';

    apptest $req, sub {
        my $res = shift;
        is $res->code, 200;
    };
};

done_testing;