1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use strict;
use Plack::Test;
use Plack::Request;
use HTTP::Request;
use Test::More;
$Plack::Test::Impl = "Server";
$ENV{PLACK_SERVER} = 'Starman';
my $app = sub {
my $env = shift;
my $req = Plack::Request->new($env);
is $req->content, "0";
return sub {
my $response = shift;
my $writer = $response->([ 200, [ 'Content-Type', 'text/plain' ]]);
$writer->write("ok");
$writer->close;
}
};
test_psgi $app, sub {
my $cb = shift;
my $req = HTTP::Request->new(POST => "http://localhost/");
$req->content('0');
my $res = $cb->($req);
is $res->content, "ok";
};
done_testing;
|
