From 54d16c14ad4e91489a297d4bd4031d2b546d7963 Mon Sep 17 00:00:00 2001
From: Magnus Klaar <magnus.klaar@gmail.com>
Date: Wed, 4 Jan 2012 02:22:21 +0100
Subject: Add test and doc for content types function.

---
 test/http_SUITE.erl | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'test/http_SUITE.erl')

diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl
index bc8d1f7..9539297 100644
--- a/test/http_SUITE.erl
+++ b/test/http_SUITE.erl
@@ -21,7 +21,8 @@
 -export([chunked_response/1, headers_dupe/1, headers_huge/1,
 	keepalive_nl/1, max_keepalive/1, nc_rand/1, nc_zero/1,
 	pipeline/1, raw/1, set_resp_header/1, set_resp_overwrite/1,
-	set_resp_body/1, stream_body_set_resp/1, response_as_req/1]). %% http.
+	set_resp_body/1, stream_body_set_resp/1, response_as_req/1,
+	static_mimetypes_function/1]). %% http.
 -export([http_200/1, http_404/1, file_200/1, file_403/1,
 	dir_403/1, file_404/1, file_400/1]). %% http and https.
 -export([http_10_hostless/1]). %% misc.
@@ -38,7 +39,8 @@ groups() ->
 	[{http, [], [chunked_response, headers_dupe, headers_huge,
 		keepalive_nl, max_keepalive, nc_rand, nc_zero, pipeline, raw,
 		set_resp_header, set_resp_overwrite,
-		set_resp_body, response_as_req, stream_body_set_resp] ++ BaseTests},
+		set_resp_body, response_as_req, stream_body_set_resp,
+		static_mimetypes_function] ++ BaseTests},
 	{https, [], BaseTests},
 	{misc, [], [http_10_hostless]},
 	{rest, [], [rest_simple, rest_keepalive]}].
@@ -126,6 +128,10 @@ init_http_dispatch(Config) ->
 			{[<<"static">>, '...'], cowboy_http_static,
 				[{directory, ?config(static_dir, Config)},
 				 {mimetypes, [{<<".css">>, [<<"text/css">>]}]}]},
+			{[<<"static_mimetypes_function">>, '...'], cowboy_http_static,
+				[{directory, ?config(static_dir, Config)},
+				 {mimetypes, {fun(Path, data) when is_binary(Path) ->
+					[<<"text/html">>] end, data}}]},
 			{[], http_handler, []}
 		]}
 	].
@@ -142,6 +148,7 @@ init_static_dir(Config) ->
 	ok = file:write_file(Level1("test_file.css"), "test_file.css\n"),
 	ok = file:write_file(Level1("test_noread"), "test_noread\n"),
 	ok = file:change_mode(Level1("test_noread"), 8#0333),
+	ok = file:write_file(Level1("test.html"), "test.html\n"),
 	ok = file:make_dir(Level1("test_dir")),
 	[{static_dir, Dir}|Config].
 
@@ -151,6 +158,7 @@ end_static_dir(Config) ->
 	ok = file:delete(Level1("test_file")),
 	ok = file:delete(Level1("test_file.css")),
 	ok = file:delete(Level1("test_noread")),
+	ok = file:delete(Level1("test.html")),
 	ok = file:del_dir(Level1("test_dir")),
 	ok = file:del_dir(Dir),
 	Config.
@@ -370,6 +378,12 @@ stream_body_set_resp(Config) ->
 	{ok, Data} = gen_tcp:recv(Socket, 0, 6000),
 	{_Start, _Length} = binary:match(Data, <<"stream_body_set_resp">>).
 
+static_mimetypes_function(Config) ->
+	TestURL = build_url("/static_mimetypes_function/test.html", Config),
+	{ok, {{"HTTP/1.1", 200, "OK"}, Headers1, "test.html\n"}} =
+		httpc:request(TestURL),
+	"text/html" = ?config("content-type", Headers1).
+
 
 %% http and https.
 
-- 
cgit v1.2.3