The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More 0.89;
use HTTP::Request::Common qw/GET POST DELETE/;

use FindBin;
use lib "$FindBin::Bin/lib";

use Catalyst::Test 'TestApp';

is(request(GET    '/foo')->content, 'get');
is(request(POST   '/foo')->content, 'post');
is(request(DELETE '/foo')->content, 'default');

is(request(GET    '/bar')->content, 'get or post');
is(request(POST   '/bar')->content, 'get or post');
is(request(DELETE '/bar')->content, 'default');

is(request(GET    '/baz')->content, 'any');
is(request(POST   '/baz')->content, 'any');
is(request(DELETE '/baz')->content, 'any');

done_testing;