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
33
34
|
use strict;
use Plack::Server::CGI;
use Test::More;
use Test::Requires {
'HTTP::Request::AsCGI' => 1.2,
};
use HTTP::Request;
my $app = sub {
my $env = shift;
return [ 200, [ "Content-Type", "text/plain" ], [ $env->{PATH_INFO} ] ];
};
my $req = HTTP::Request->new(GET => "http://localhost/foo");
my $cgi = HTTP::Request::AsCGI->new($req);
my $c = $cgi->setup;
$ENV{SCRIPT_NAME} = '/plack_test.cgi';
my $stderr;
{
close STDERR;
open STDERR, ">", \$stderr;
my $s = Plack::Server::CGI->new;
$s->run($app);
}
my $res = $c->response;
is $res->content, "/foo";
like $stderr, qr/deprecated/;
done_testing;
|
