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
35
36
37
38
39
40
41
|
use strict;
use warnings;
use Test::More;
use HTTP::Request::Common;
use Plack::Builder;
use Plack::Test;
use Cwd;
sub is_wo_case($$;$) {
is lc $_[0], lc $_[1], $_[2];
}
my $handler = builder {
enable "Plack::Middleware::XSendfile";
enable "Plack::Middleware::Static",
path => qr/./, root => ".";
sub { };
};
test_psgi app => $handler, client => sub {
my $cb = shift;
{
my $req = GET "http://localhost/t/00_compile.t", 'X-Sendfile-Type' => 'X-Sendfile';
my $res = $cb->($req);
is $res->content_type, 'text/troff';;
is_wo_case $res->header('X-Sendfile'), Cwd::realpath("t/00_compile.t"); # wo_case for Win32--
is $res->content, '';
}
};
test_psgi(
app => sub { return [ 200, [ 'X-Sendfile' => '/foo/bar.txt' ], [] ] },
client => sub {
my $cb = shift;
my $res = $cb->(GET "http://localhost/foo", 'X-Sendfile-Type' => 'X-Sendfile');
is $res->header('X-Sendfile'), '/foo/bar.txt', 'pass through app header';
},
);
done_testing;
|
