summaryrefslogtreecommitdiffstats
path: root/web/server/h2o/libh2o/t/50compress.t
blob: b8674f7fa5ab74ac256bcb0f23494e11ba55ac37 (plain)
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();