Browse Source

Add a cowboy_static test with an uppercase filename/extension

Loïc Hoguin 6 years ago
parent
commit
705fa9755f
1 changed files with 6 additions and 0 deletions
  1. 6 0
      test/static_handler_SUITE.erl

+ 6 - 0
test/static_handler_SUITE.erl

@@ -786,6 +786,12 @@ mime_all_txt(Config) ->
 	{_, <<"text/plain">>} = lists:keyfind(<<"content-type">>, 1, Headers),
 	{_, <<"text/plain">>} = lists:keyfind(<<"content-type">>, 1, Headers),
 	ok.
 	ok.
 
 
+mime_all_uppercase(Config) ->
+	doc("Get an uppercase .TXT file."),
+	{200, Headers, _} = do_get("/mime/all/UPPER.TXT", Config),
+	{_, <<"text/plain">>} = lists:keyfind(<<"content-type">>, 1, Headers),
+	ok.
+
 mime_crash(Config) ->
 mime_crash(Config) ->
 	doc("Get a file with a crashing mimetype function."),
 	doc("Get a file with a crashing mimetype function."),
 	{500, _, _} = do_get("/mime/crash/style.css", Config),
 	{500, _, _} = do_get("/mime/crash/style.css", Config),