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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
use strict;
use warnings;
use Digest::MD5 qw(md5_hex);
use Test::More;
use t::Util;
plan skip_all => 'curl not found'
unless prog_exists('curl');
my $server = spawn_h2o(<< "EOT");
hosts:
default:
paths:
/off:
file.dir: @{[DOC_ROOT]}
/on:
file.dir: @{[DOC_ROOT]}
compress: ON
/off-by-mime:
file.dir: @{[DOC_ROOT]}
compress: ON
file.mime.settypes:
text/plain:
extensions: [".txt"]
is_compressible: NO
/compress-jpg:
file.dir: @{[DOC_ROOT]}
compress: ON
file.mime.settypes:
image/jpg:
extensions: [".jpg"]
is_compressible: YES
EOT
run_with_curl($server, sub {
my ($proto, $port, $curl) = @_;
plan skip_all => 'curl issue #661'
if $curl =~ /--http2/;
my $fetch_orig = sub {
my ($path, $opts) = @_;
run_prog("$curl --silent $opts $proto://127.0.0.1:$port$path/alice.txt");
};
my $fetch_gunzip = sub {
my ($path, $opts) = @_;
run_prog("$curl --silent $opts $proto://127.0.0.1:$port$path/alice.txt | gzip -cd");
};
my $expected = md5_file("@{[DOC_ROOT]}/alice.txt");
my $resp = $fetch_orig->("/off", "");
is md5_hex($resp), $expected, "off wo. accept-encoding";
$resp = $fetch_orig->("/on", "");
is md5_hex($resp), $expected, "on wo. accept-encoding";
$resp = $fetch_orig->("/off", "-H accept-encoding:gzip");
is md5_hex($resp), $expected, "off with accept-encoding";
$resp = $fetch_gunzip->("/on", "-H accept-encoding:gzip");
is md5_hex($resp), $expected, "on with accept-encoding";
$resp = $fetch_gunzip->("/on", "-H 'accept-encoding:gzip, deflate'");
is md5_hex($resp), $expected, "on with accept-encoding: gzip, deflate";
$resp = $fetch_gunzip->("/on", "-H 'accept-encoding:deflate, gzip'");
is md5_hex($resp), $expected, "on with accept-encoding: deflate, gzip";
$resp = $fetch_orig->("/on", "-H accept-encoding:deflate");
is md5_hex($resp), $expected, "on with accept-encoding, deflate only";
$resp = $fetch_orig->("/off-by-mime", "-H accept-encoding:gzip");
is md5_hex($resp), $expected, "off due to is_compressible:NO";
$resp = run_prog("$curl --silent -H accept-encoding:gzip $proto://127.0.0.1:$port/on/index.txt");
is md5_hex($resp), md5_file("@{[DOC_ROOT]}/index.txt"), "tiny file not compressed";
$resp = run_prog("$curl --silent -H accept-encoding:gzip $proto://127.0.0.1:$port/on/halfdome.jpg");
is md5_hex($resp), md5_file("@{[DOC_ROOT]}/halfdome.jpg"), "image not compressed";
$resp = run_prog("$curl --silent -H accept-encoding:gzip $proto://127.0.0.1:$port/compress-jpg/halfdome.jpg | gzip -cd");
is md5_hex($resp), md5_file("@{[DOC_ROOT]}/halfdome.jpg"), "image compressed using gzip";
subtest "brotli-decompress" => sub {
plan skip_all => "bro not found"
unless prog_exists("bro");
$resp = run_prog("$curl --silent -H accept-encoding:br $proto://127.0.0.1:$port/on/alice.txt | bro --decompress");
is md5_hex($resp), md5_file("@{[DOC_ROOT]}/alice.txt"), "alice.txt";
$resp = run_prog("$curl --silent -H accept-encoding:br $proto://127.0.0.1:$port/compress-jpg/halfdome.jpg | bro --decompress");
is md5_hex($resp), md5_file("@{[DOC_ROOT]}/halfdome.jpg"), "halfdome.jpg";
};
});
undef $server;
done_testing();
|
