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
|
use strict;
use warnings;
use Test::Requires qw(
Plack::Middleware::Deflater
IO::Handle::Util
);
use IO::Handle::Util qw(:io_from);
use Plack::App::Proxy;
use Test::More;
use Plack::App::Proxy::Test;
# Receive the encoded contents.
test_proxy(
proxy => sub { Plack::App::Proxy->new(remote => "http://$_[0]:$_[1]/") },
app => Plack::Middleware::Deflater->wrap(
# XXX Plack 0.9030 can't deflate an array-ref response.
sub { [ 200, [], io_from_array [ 'Hello ', 'World', "\n" ] ] },
),
client => sub {
my $cb = shift;
# The client send the request to encode the response.
my $req = HTTP::Request->new(
GET => "http://localhost/index.html", [
'Accept-Encoding' => 'gzip,deflate',
]
);
my $res = $cb->($req);
like $res->headers->header('Content-Encoding'), qr/gzip/,
"Recieved Content-Encoding header";
is $res->decoded_content, "Hello World\n",
"Recieved the contents gzipped";
},
);
done_testing;
|
