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
|
use strict;
use warnings;
use Test::More;
use Plack::Builder;
use HTTP::Request::Common;
use Plack::Test;
plan tests => 5;
my $app = sub {
[200, ['Content-Type', 'text/plain'], ['ok']]
};
ok my $builder = Plack::Builder->new();
$builder->add_middleware('Runtime');
$app = $builder->mount('/app/foo/bar' => $app);
$builder->add_middleware('XFramework', framework => 'Plack::Builder');
$app = $builder->to_app($app);
ok $app;
test_psgi $app, sub {
my $cb = shift;
my $res = $cb->(GET "/app/foo/bar");
ok $res->header('X-Runtime');
is $res->header('X-Framework'), 'Plack::Builder';
is $res->content, "ok";
};
|
