From 1504c60c899114ce25f5b17d78168f03258df20f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Sun, 5 Feb 2017 17:32:03 +0100
Subject: Add test for the compress_response example

---
 test/examples_SUITE.erl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

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) ->
-- 
cgit v1.2.3