aboutsummaryrefslogtreecommitdiffstats
path: root/test/examples_SUITE.erl
diff options
context:
space:
mode:
Diffstat (limited to 'test/examples_SUITE.erl')
-rw-r--r--test/examples_SUITE.erl19
1 files changed, 19 insertions, 0 deletions
diff --git a/test/examples_SUITE.erl b/test/examples_SUITE.erl
index 6ef5471..ff0457a 100644
--- a/test/examples_SUITE.erl
+++ b/test/examples_SUITE.erl
@@ -149,6 +149,25 @@ do_chunked_hello_world(Transport, Protocol, Config) ->
ok
end.
+%% Compressed responses.
+
+compress_response(Config) ->
+ doc("Compressed response example."),
+ try
+ do_compile_and_start(compress_response),
+ do_compress_response(tcp, http, Config),
+ do_compress_response(tcp, http2, Config)
+ after
+ do_stop(compress_response)
+ end.
+
+do_compress_response(Transport, Protocol, Config) ->
+ {200, Headers, Body} = do_get(Transport, Protocol, "/",
+ [{<<"accept-encoding">>, <<"gzip">>}], Config),
+ {_, <<"gzip">>} = lists:keyfind(<<"content-encoding">>, 1, Headers),
+ _ = zlib:gunzip(Body),
+ ok.
+
%% Cookie.
cookie(Config) ->