use strict;
use warnings;
use Test::More tests => 4;
use HTTP::Request::Common;
use Plack::Builder;
use Plack::Test;
my $app = sub {
my ( $env ) = @_;
if($env->{'REQUEST_METHOD'} eq 'GET') {
return [
200,
['Content-Type' => 'text/plain'],
['OK'],
];
} else {
...
}
};
$app = builder {
enable 'Acme::YadaYada';
$app;
};
test_psgi $app, sub {
my ( $cb ) = @_;
my $res;
$res = $cb->(GET '/');
is $res->code, 200;
is $res->content, 'OK';
$res = $cb->(POST '/');
is $res->code, 501;
is $res->message, 'Not Implemented';
};