diff options
| author | Eric Wong <e@yhbt.net> | 2020-07-05 23:27:28 +0000 |
|---|---|---|
| committer | Eric Wong <e@yhbt.net> | 2020-07-06 20:01:15 +0000 |
| commit | f982abbaa39e07090d3fb641fd9de25434c0d74c (patch) | |
| tree | e5c5d0a4cd6312045ea79dd8706ac390624ed734 /t/httpd-corner.t | |
| parent | 2bb3b3491416232a44ad8b318537c856cff727f4 (diff) | |
| download | public-inbox-f982abbaa39e07090d3fb641fd9de25434c0d74c.tar.gz | |
This will allow us to gzip responses generated by cgit and any other CGI programs or long-lived streaming responses we may spawn.
Diffstat (limited to 't/httpd-corner.t')
| -rw-r--r-- | t/httpd-corner.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/httpd-corner.t b/t/httpd-corner.t index 68148655..514672a1 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -340,11 +340,18 @@ SKIP: { is($n, 30 * 1024 * 1024, 'got expected output from curl'); is($non_zero, 0, 'read all zeros'); - require_mods(@zmods, 2); + require_mods(@zmods, 4); my $buf = xqx([$curl, '-sS', "$base/psgi-return-gzip"]); is($?, 0, 'curl succesful'); IO::Uncompress::Gunzip::gunzip(\$buf => \(my $out)); is($out, "hello world\n"); + my $curl_rdr = { 2 => \(my $curl_err = '') }; + $buf = xqx([$curl, qw(-sSv --compressed), + "$base/psgi-return-compressible"], undef, $curl_rdr); + is($?, 0, 'curl --compressed successful'); + is($buf, "goodbye world\n", 'gzipped response as expected'); + like($curl_err, qr/\bContent-Encoding: gzip\b/, + 'curl got gzipped response'); } { |