From 3b85b808ae3cc48d19b71b72869ee59c25e70b00 Mon Sep 17 00:00:00 2001 From: Marcos Ferreira Date: Mon, 23 Dec 2019 22:31:47 -0300 Subject: Ignore malformed accept-encoding headers in cowboy_compress_h --- test/compress_SUITE.erl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'test') 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", -- cgit v1.2.3