Просмотр исходного кода

Add a cowboy_static test with an uppercase filename/extension

Loïc Hoguin 6 лет назад
Родитель
Сommit
705fa9755f
1 измененных файлов с 6 добавлено и 0 удалено
  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),
 	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) ->
 	doc("Get a file with a crashing mimetype function."),
 	{500, _, _} = do_get("/mime/crash/style.css", Config),