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;
use Amon2::Web::Response;

my $res = Amon2::Web::Response->new(200, [], 'ok');
$res->content_type('text/html');
$res->status(403);
$res->body('hoge');
isa_ok $res, 'Amon2::Web::Response', 'method chain';
is_deeply $res->finalize(), [403, ['Content-Type' => 'text/html'], ['hoge']];

done_testing;