1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict;
use warnings;
use Test::More;
use HTTP::Message::PSGI;
use Plack::Middleware::AccessLog::Timed;
use HTTP::Request;
use HTTP::Response;
# Plack::Middleware::AccessLog::Timed is used here as it always uses
# a coderef in response_cb to wrap the response body.
my $app = Plack::Middleware::AccessLog::Timed->wrap(
sub { return [ 200, [], []] },
logger => sub {},
);
my $env = req_to_psgi(HTTP::Request->new(POST => "http://localhost/post", [ ], 'hello'));
my $response = HTTP::Response->from_psgi($app->($env));
is($response->content, '', 'undef response body converted to empty string');
done_testing;
|
