diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/compress_SUITE.erl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test/compress_SUITE.erl b/test/compress_SUITE.erl index 8891e42..a25c427 100644 --- a/test/compress_SUITE.erl +++ b/test/compress_SUITE.erl @@ -62,6 +62,15 @@ do_get(Path, ReqHeaders, Config) -> %% Tests. +gzip_accept_encoding_malformed(Config) -> + doc("Send malformed accept-encoding; get an uncompressed response."), + {200, Headers, _} = do_get("/reply/large", + [{<<"accept-encoding">>, <<";">>}], Config), + false = lists:keyfind(<<"content-encoding">>, 1, Headers), + false = lists:keyfind(<<"vary">>, 1, Headers), + {_, <<"100000">>} = lists:keyfind(<<"content-length">>, 1, Headers), + ok. + gzip_accept_encoding_missing(Config) -> doc("Don't send accept-encoding; get an uncompressed response."), {200, Headers, _} = do_get("/reply/large", @@ -80,6 +89,15 @@ gzip_accept_encoding_no_gzip(Config) -> {_, <<"100000">>} = lists:keyfind(<<"content-length">>, 1, Headers), ok. +gzip_accept_encoding_not_supported(Config) -> + doc("Send unsupported accept-encoding; get an uncompressed response."), + {200, Headers, _} = do_get("/reply/large", + [{<<"accept-encoding">>, <<"application/gzip">>}], Config), + false = lists:keyfind(<<"content-encoding">>, 1, Headers), + false = lists:keyfind(<<"vary">>, 1, Headers), + {_, <<"100000">>} = lists:keyfind(<<"content-length">>, 1, Headers), + ok. + gzip_reply_content_encoding(Config) -> doc("Reply with content-encoding header; get an uncompressed response."), {200, Headers, _} = do_get("/reply/content-encoding", |