diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/cowboy_test.erl | 19 | ||||
| -rw-r--r-- | test/static_handler_SUITE.erl | 761 |
2 files changed, 776 insertions, 4 deletions
diff --git a/test/cowboy_test.erl b/test/cowboy_test.erl index 44ffdf8..5b223d1 100644 --- a/test/cowboy_test.erl +++ b/test/cowboy_test.erl @@ -42,22 +42,33 @@ common_all() -> [ {group, http}, {group, https}, - {group, http_compress}, - {group, https_compress} + {group, h2}, + {group, h2c}%, +%% @todo +% {group, http_compress}, +% {group, https_compress} ]. common_groups(Tests) -> [ {http, [parallel], Tests}, {https, [parallel], Tests}, - {http_compress, [parallel], Tests}, - {https_compress, [parallel], Tests} + {h2, [parallel], Tests}, + {h2c, [parallel], Tests}%, +%% @todo +% {http_compress, [parallel], Tests}, +% {https_compress, [parallel], Tests} ]. init_common_groups(Name = http, Config, Mod) -> init_http(Name, #{env => #{dispatch => Mod:init_dispatch(Config)}}, Config); init_common_groups(Name = https, Config, Mod) -> init_https(Name, #{env => #{dispatch => Mod:init_dispatch(Config)}}, Config); +init_common_groups(Name = h2, Config, Mod) -> + init_http2(Name, #{env => #{dispatch => Mod:init_dispatch(Config)}}, Config); +init_common_groups(Name = h2c, Config, Mod) -> + Config1 = init_http(Name, #{env => #{dispatch => Mod:init_dispatch(Config)}}, Config), + lists:keyreplace(protocol, 1, Config1, {protocol, http2}); init_common_groups(Name = http_compress, Config, Mod) -> init_http(Name, #{ env => #{dispatch => Mod:init_dispatch(Config)}, diff --git a/test/static_handler_SUITE.erl b/test/static_handler_SUITE.erl new file mode 100644 index 0000000..fdeae10 --- /dev/null +++ b/test/static_handler_SUITE.erl @@ -0,0 +1,761 @@ +%% Copyright (c) 2016, Loïc Hoguin <[email protected]> +%% +%% Permission to use, copy, modify, and/or distribute this software for any +%% purpose with or without fee is hereby granted, provided that the above +%% copyright notice and this permission notice appear in all copies. +%% +%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES +%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF +%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR +%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES +%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN +%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + +-module(static_handler_SUITE). +-compile(export_all). + +-import(ct_helper, [config/2]). +-import(ct_helper, [doc/1]). +-import(cowboy_test, [gun_open/1]). + +%% ct. + +all() -> + cowboy_test:common_all(). + +groups() -> + AllTests = ct_helper:all(?MODULE), + %% The directory tests are shared between dir and priv_dir options. + DirTests = lists:usort([F || {F, 1} <- ?MODULE:module_info(exports), + string:substr(atom_to_list(F), 1, 4) =:= "dir_" + ]), + OtherTests = AllTests -- DirTests, + GroupTests = OtherTests ++ [ + {dir, [parallel], DirTests}, + {priv_dir, [parallel], DirTests} + ], + [ + {http, [parallel], GroupTests}, + {https, [parallel], GroupTests}, + {h2, [parallel], GroupTests}, + {h2c, [parallel], GroupTests} + %% @todo With compression enabled. + ]. + +init_per_suite(Config) -> + %% @todo When we can chain stream handlers, write one + %% to hide these expected errors. + ct:print("This test suite will produce error reports. " + "The path for these expected errors begins with '/bad' or '/char'."), + %% Two static folders are created: one in ct_helper's private directory, + %% and one in the test run private directory. + PrivDir = code:priv_dir(ct_helper) ++ "/static", + StaticDir = config(priv_dir, Config) ++ "/static", + ct_helper:create_static_dir(PrivDir), + ct_helper:create_static_dir(StaticDir), + init_large_file(PrivDir ++ "/large.bin"), + init_large_file(StaticDir ++ "/large.bin"), + %% A special folder contains files of 1 character from 0 to 127. + CharDir = config(priv_dir, Config) ++ "/char", + ok = filelib:ensure_dir(CharDir ++ "/file"), + Chars = lists:flatten([case file:write_file(CharDir ++ [$/, C], [C]) of + ok -> C; + {error, _} -> [] + end || C <- lists:seq(0, 127)]), + [{static_dir, StaticDir}, {char_dir, CharDir}, {chars, Chars}|Config]. + +end_per_suite(Config) -> + ct:print("This test suite produced error reports. " + "The path for these expected errors begins with '/bad' or '/char'."), + %% Special directory. + CharDir = config(char_dir, Config), + _ = [file:delete(CharDir ++ [$/, C]) || C <- lists:seq(0, 127)], + file:del_dir(CharDir), + %% Static directories. + StaticDir = config(static_dir, Config), + PrivDir = code:priv_dir(ct_helper) ++ "/static", + ok = file:delete(StaticDir ++ "/large.bin"), + ok = file:delete(PrivDir ++ "/large.bin"), + ct_helper:delete_static_dir(StaticDir), + ct_helper:delete_static_dir(PrivDir). + +init_per_group(dir, Config) -> + [{prefix, "/dir"}|Config]; +init_per_group(priv_dir, Config) -> + [{prefix, "/priv_dir"}|Config]; +init_per_group(tttt, Config) -> + Config; +init_per_group(Name, Config) -> + cowboy_test:init_common_groups(Name, Config, ?MODULE). + +end_per_group(Name, _) -> + cowboy:stop_listener(Name). + +%% Large file. + +init_large_file(Filename) -> + case os:type() of + {unix, _} -> + "" = os:cmd("truncate -s 512M " ++ Filename), + ok; + {win32, _} -> + ok + end. + +%% Routes. + +init_dispatch(Config) -> + cowboy_router:compile([{'_', [ + {"/priv_dir/[...]", cowboy_static, {priv_dir, ct_helper, "static"}}, + {"/dir/[...]", cowboy_static, {dir, config(static_dir, Config)}}, + {"/priv_file/style.css", cowboy_static, {priv_file, ct_helper, "static/style.css"}}, + {"/file/style.css", cowboy_static, {file, config(static_dir, Config) ++ "/style.css"}}, + {"/index", cowboy_static, {file, config(static_dir, Config) ++ "/index.html"}}, + {"/mime/all/[...]", cowboy_static, {priv_dir, ct_helper, "static", + [{mimetypes, cow_mimetypes, all}]}}, + {"/mime/custom/[...]", cowboy_static, {priv_dir, ct_helper, "static", + [{mimetypes, ?MODULE, do_mime_custom}]}}, + {"/mime/crash/[...]", cowboy_static, {priv_dir, ct_helper, "static", + [{mimetypes, ?MODULE, do_mime_crash}]}}, + {"/mime/hardcode/binary-form", cowboy_static, {priv_file, ct_helper, "static/file.cowboy", + [{mimetypes, <<"application/vnd.ninenines.cowboy+xml;v=1">>}]}}, + {"/mime/hardcode/tuple-form", cowboy_static, {priv_file, ct_helper, "static/file.cowboy", + [{mimetypes, {<<"application">>, <<"vnd.ninenines.cowboy+xml">>, [{<<"v">>, <<"1">>}]}}]}}, + {"/etag/custom", cowboy_static, {file, config(static_dir, Config) ++ "/style.css", + [{etag, ?MODULE, do_etag_custom}]}}, + {"/etag/crash", cowboy_static, {file, config(static_dir, Config) ++ "/style.css", + [{etag, ?MODULE, do_etag_crash}]}}, + {"/etag/disable", cowboy_static, {file, config(static_dir, Config) ++ "/style.css", + [{etag, false}]}}, + {"/bad", cowboy_static, bad}, + {"/bad/priv_dir/app/[...]", cowboy_static, {priv_dir, bad_app, "static"}}, + {"/bad/priv_dir/no-priv/[...]", cowboy_static, {priv_dir, cowboy, "static"}}, + {"/bad/priv_dir/path/[...]", cowboy_static, {priv_dir, ct_helper, "bad"}}, + {"/bad/priv_dir/route", cowboy_static, {priv_dir, ct_helper, "static"}}, + {"/bad/dir/path/[...]", cowboy_static, {dir, "/bad/path"}}, + {"/bad/dir/route", cowboy_static, {dir, config(static_dir, Config)}}, + {"/bad/priv_file/app", cowboy_static, {priv_file, bad_app, "static/style.css"}}, + {"/bad/priv_file/no-priv", cowboy_static, {priv_file, cowboy, "static/style.css"}}, + {"/bad/priv_file/path", cowboy_static, {priv_file, ct_helper, "bad/style.css"}}, + {"/bad/file/path", cowboy_static, {file, "/bad/path/style.css"}}, + {"/bad/options", cowboy_static, {priv_file, ct_helper, "static/style.css", bad}}, + {"/bad/options/mime", cowboy_static, {priv_file, ct_helper, "static/style.css", [{mimetypes, bad}]}}, + {"/bad/options/etag", cowboy_static, {priv_file, ct_helper, "static/style.css", [{etag, true}]}}, + {"/unknown/option", cowboy_static, {priv_file, ct_helper, "static/style.css", [{bad, option}]}}, + {"/char/[...]", cowboy_static, {dir, config(char_dir, Config)}} + ]}]). + +%% Internal functions. + +do_etag_crash(_, _, _) -> + ct_helper_error_h:ignore(?MODULE, do_etag_crash, 3), + exit(crash). + +do_etag_custom(_, _, _) -> + {strong, <<"etag">>}. + +do_mime_crash(_) -> + ct_helper_error_h:ignore(?MODULE, do_mime_crash, 1), + exit(crash). + +do_mime_custom(Path) -> + case filename:extension(Path) of + <<".cowboy">> -> <<"application/vnd.ninenines.cowboy+xml;v=1">>; + <<".txt">> -> <<"text/plain">>; + _ -> {<<"application">>, <<"octet-stream">>, []} + end. + +do_get(Path, Config) -> + do_get(Path, [], Config). + +do_get(Path, ReqHeaders, Config) -> + ConnPid = gun_open(Config), + Ref = gun:get(ConnPid, Path, ReqHeaders), + {response, IsFin, Status, RespHeaders} = gun:await(ConnPid, Ref), + {ok, Body} = case IsFin of + nofin -> gun:await_body(ConnPid, Ref); + fin -> {ok, <<>>} + end, + gun:close(ConnPid), + {Status, RespHeaders, Body}. + +%% Tests. + +bad(Config) -> + doc("Bad cowboy_static options: not a tuple."), + {500, _, _} = do_get("/bad", Config), + ok. + +bad_dir_path(Config) -> + doc("Bad cowboy_static options: wrong path."), + {404, _, _} = do_get("/bad/dir/path/style.css", Config), + ok. + +bad_dir_route(Config) -> + doc("Bad cowboy_static options: missing [...] in route."), + {500, _, _} = do_get("/bad/dir/route", Config), + ok. + +bad_file_path(Config) -> + doc("Bad cowboy_static options: wrong path."), + {404, _, _} = do_get("/bad/file/path", Config), + ok. + +bad_options(Config) -> + doc("Bad cowboy_static extra options: not a list."), + {500, _, _} = do_get("/bad/options", Config), + ok. + +bad_options_etag(Config) -> + doc("Bad cowboy_static extra options: invalid etag option."), + {500, _, _} = do_get("/bad/options/etag", Config), + ok. + +bad_options_mime(Config) -> + doc("Bad cowboy_static extra options: invalid mimetypes option."), + {500, _, _} = do_get("/bad/options/mime", Config), + ok. + +bad_priv_dir_app(Config) -> + doc("Bad cowboy_static options: wrong application name."), + {500, _, _} = do_get("/bad/priv_dir/app/style.css", Config), + ok. + +bad_priv_dir_no_priv(Config) -> + doc("Bad cowboy_static options: application has no priv directory."), + {404, _, _} = do_get("/bad/priv_dir/no-priv/style.css", Config), + ok. + +bad_priv_dir_path(Config) -> + doc("Bad cowboy_static options: wrong path."), + {404, _, _} = do_get("/bad/priv_dir/path/style.css", Config), + ok. + +bad_priv_dir_route(Config) -> + doc("Bad cowboy_static options: missing [...] in route."), + {500, _, _} = do_get("/bad/priv_dir/route", Config), + ok. + +bad_priv_file_app(Config) -> + doc("Bad cowboy_static options: wrong application name."), + {500, _, _} = do_get("/bad/priv_file/app", Config), + ok. + +bad_priv_file_no_priv(Config) -> + doc("Bad cowboy_static options: application has no priv directory."), + {404, _, _} = do_get("/bad/priv_file/no-priv", Config), + ok. + +bad_priv_file_path(Config) -> + doc("Bad cowboy_static options: wrong path."), + {404, _, _} = do_get("/bad/priv_file/path", Config), + ok. + +dir_cowboy(Config) -> + doc("Get a .cowboy file."), + {200, Headers, <<"File with custom extension.\n">>} + = do_get(config(prefix, Config) ++ "/file.cowboy", Config), + {_, <<"application/octet-stream">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +dir_css(Config) -> + doc("Get a .css file."), + {200, Headers, <<"body{color:red}\n">>} + = do_get(config(prefix, Config) ++ "/style.css", Config), + {_, <<"text/css">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +dir_css_urlencoded(Config) -> + doc("Get a .css file with the extension dot urlencoded."), + {200, Headers, <<"body{color:red}\n">>} + = do_get(config(prefix, Config) ++ "/style%2ecss", Config), + {_, <<"text/css">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +dir_dot_file(Config) -> + doc("Get a file with extra dot segments in the path."), + %% All these are equivalent. + {200, _, _} = do_get(config(prefix, Config) ++ "/./style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/././style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/./././style.css", Config), + {200, _, _} = do_get("/./priv_dir/style.css", Config), + {200, _, _} = do_get("/././priv_dir/style.css", Config), + {200, _, _} = do_get("/./././priv_dir/style.css", Config), + ok. + +dir_dotdot_file(Config) -> + doc("Get a file with extra dotdot segments in the path."), + %% All these are equivalent. + {200, _, _} = do_get("/../priv_dir/style.css", Config), + {200, _, _} = do_get("/../../priv_dir/style.css", Config), + {200, _, _} = do_get("/../../../priv_dir/style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/../priv_dir/style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/../../priv_dir/style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/../../../priv_dir/style.css", Config), + {200, _, _} = do_get("/../priv_dir/../priv_dir/style.css", Config), + {200, _, _} = do_get("/../../priv_dir/../../priv_dir/style.css", Config), + {200, _, _} = do_get("/../../../priv_dir/../../../priv_dir/style.css", Config), + %% Try with non-existing segments, which may correspond to real folders. + {200, _, _} = do_get("/anything/../priv_dir/style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/anything/../style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/directory/../style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/static/../style.css", Config), + %% Try with segments corresponding to real files. It works because + %% URI normalization happens before looking at the filesystem. + {200, _, _} = do_get(config(prefix, Config) ++ "/style.css/../style.css", Config), + {200, _, _} = do_get(config(prefix, Config) ++ "/style.css/../../priv_dir/style.css", Config), + %% Try to fool the server to accept segments corresponding to real folders. + {404, _, _} = do_get(config(prefix, Config) ++ "/../static/style.css", Config), + {404, _, _} = do_get(config(prefix, Config) ++ "/directory/../../static/style.css", Config), + ok. + +dir_error_directory(Config) -> + doc("Try to get a directory."), + {403, _, _} = do_get(config(prefix, Config) ++ "/directory", Config), + ok. + +dir_error_directory_slash(Config) -> + doc("Try to get a directory with an extra slash in the path."), + {403, _, _} = do_get(config(prefix, Config) ++ "/directory/", Config), + ok. + +dir_error_doesnt_exist(Config) -> + doc("Try to get a file that does not exist."), + {404, _, _} = do_get(config(prefix, Config) ++ "/not.found", Config), + ok. + +dir_error_dot(Config) -> + doc("Try to get a file named '.'."), + {403, _, _} = do_get(config(prefix, Config) ++ "/.", Config), + ok. + +dir_error_dot_urlencoded(Config) -> + doc("Try to get a file named '.' percent encoded."), + {403, _, _} = do_get(config(prefix, Config) ++ "/%2e", Config), + ok. + +dir_error_dotdot(Config) -> + doc("Try to get a file named '..'."), + {404, _, _} = do_get(config(prefix, Config) ++ "/..", Config), + ok. + +dir_error_dotdot_urlencoded(Config) -> + doc("Try to get a file named '..' percent encoded."), + {404, _, _} = do_get(config(prefix, Config) ++ "/%2e%2e", Config), + ok. + +dir_error_empty(Config) -> + doc("Try to get the configured directory."), + {403, _, _} = do_get(config(prefix, Config) ++ "", Config), + ok. + +dir_error_slash(Config) -> + %% I know the description isn't that good considering / has a meaning in URIs. + doc("Try to get a file named '/'."), + {403, _, _} = do_get(config(prefix, Config) ++ "//", Config), + ok. + +dir_error_slash_urlencoded(Config) -> + doc("Try to get a file named '/' percent encoded."), + {404, _, _} = do_get(config(prefix, Config) ++ "/%2f", Config), + ok. + +dir_error_slash_urlencoded_dotdot_file(Config) -> + doc("Try to use a percent encoded slash to access an existing file."), + {200, _, _} = do_get(config(prefix, Config) ++ "/directory/../style.css", Config), + {404, _, _} = do_get(config(prefix, Config) ++ "/directory%2f../style.css", Config), + ok. + +dir_error_unreadable(Config) -> + doc("Try to get a file that can't be read."), + {403, _, _} = do_get(config(prefix, Config) ++ "/unreadable", Config), + ok. + +dir_html(Config) -> + doc("Get a .html file."), + {200, Headers, <<"<html><body>Hello!</body></html>\n">>} + = do_get(config(prefix, Config) ++ "/index.html", Config), + {_, <<"text/html">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +%% @todo This test results in a crash dump. +%dir_large_file(Config) -> +% doc("Get a large file."), +% {200, Headers, _} = do_get(config(prefix, Config) ++ "/large.bin", Config), +% {_, <<"text/html">>} = lists:keyfind(<<"content-type">>, 1, Headers), +%% @todo Receive body. +% ok. + +dir_text(Config) -> + doc("Get a .txt file. The extension is unknown by default."), + {200, Headers, <<"Timeless space.\n">>} + = do_get(config(prefix, Config) ++ "/plain.txt", Config), + {_, <<"application/octet-stream">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +dir_unknown(Config) -> + doc("Get a file with no extension."), + {200, Headers, <<"File with no extension.\n">>} + = do_get(config(prefix, Config) ++ "/unknown", Config), + {_, <<"application/octet-stream">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +etag_crash(Config) -> + doc("Get a file with a crashing etag function."), + {500, _, _} = do_get("/etag/crash", Config), + ok. + +etag_custom(Config) -> + doc("Get a file with custom Etag function and make sure it is used."), + {200, Headers, _} = do_get("/etag/custom", Config), + {_, <<"\"etag\"">>} = lists:keyfind(<<"etag">>, 1, Headers), + ok. + +etag_default(Config) -> + doc("Get a file twice and make sure the Etag matches."), + {200, Headers1, _} = do_get("/dir/style.css", Config), + {200, Headers2, _} = do_get("/dir/style.css", Config), + {_, Etag} = lists:keyfind(<<"etag">>, 1, Headers1), + {_, Etag} = lists:keyfind(<<"etag">>, 1, Headers2), + ok. + +etag_default_change(Config) -> + doc("Get a file, modify it, get it again and make sure the Etag doesn't match."), + {200, Headers1, _} = do_get("/dir/index.html", Config), + {_, Etag1} = lists:keyfind(<<"etag">>, 1, Headers1), + ok = file:change_time(config(static_dir, Config) ++ "/index.html", + {{config(port, Config), 1, 1}, {1, 1, 1}}), + {200, Headers2, _} = do_get("/dir/index.html", Config), + {_, Etag2} = lists:keyfind(<<"etag">>, 1, Headers2), + true = Etag1 =/= Etag2, + ok. + +etag_disable(Config) -> + doc("Get a file with disabled Etag and make sure no Etag is provided."), + {200, Headers, _} = do_get("/etag/disable", Config), + false = lists:keyfind(<<"etag">>, 1, Headers), + ok. + +file(Config) -> + doc("Get a file with hardcoded route."), + {200, Headers, <<"body{color:red}\n">>} = do_get("/file/style.css", Config), + {_, <<"text/css">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +if_match(Config) -> + doc("Get a file with If-Match matching."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-match">>, <<"\"etag\"">>} + ], Config), + ok. + +if_match_fail(Config) -> + doc("Get a file with If-Match not matching."), + {412, _, _} = do_get("/etag/custom", [ + {<<"if-match">>, <<"\"invalid\"">>} + ], Config), + ok. + +if_match_invalid(Config) -> + doc("Try to get a file with an invalid If-Match header."), + {400, _, _} = do_get("/etag/custom", [ + {<<"if-match">>, <<"bad input">>} + ], Config), + ok. + +if_match_list(Config) -> + doc("Get a file with If-Match matching."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-match">>, <<"\"invalid\", \"etag\", \"cowboy\"">>} + ], Config), + ok. + +if_match_list_fail(Config) -> + doc("Get a file with If-Match not matching."), + {412, _, _} = do_get("/etag/custom", [ + {<<"if-match">>, <<"\"invalid\", W/\"etag\", \"cowboy\"">>} + ], Config), + ok. + +if_match_weak(Config) -> + doc("Try to get a file with a weak If-Match header."), + {412, _, _} = do_get("/etag/custom", [ + {<<"if-match">>, <<"W/\"etag\"">>} + ], Config), + ok. + +if_match_wildcard(Config) -> + doc("Get a file with a wildcard If-Match."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-match">>, <<"*">>} + ], Config), + ok. + +if_modified_since(Config) -> + doc("Get a file with If-Modified-Since in the past."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-modified-since">>, <<"Sat, 29 Oct 1994 19:43:31 GMT">>} + ], Config), + ok. + +if_modified_since_fail(Config) -> + doc("Get a file with If-Modified-Since equal to file modification time."), + LastModified = filelib:last_modified(config(static_dir, Config) ++ "/style.css"), + {304, _, _} = do_get("/etag/custom", [ + {<<"if-modified-since">>, httpd_util:rfc1123_date(LastModified)} + ], Config), + ok. + +if_modified_since_future(Config) -> + doc("Get a file with If-Modified-Since in the future."), + {{Year, _, _}, {_, _, _}} = calendar:universal_time(), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-modified-since">>, [ + <<"Sat, 29 Oct ">>, + integer_to_binary(Year + 1), + <<" 19:43:31 GMT">>]} + ], Config), + ok. + +if_modified_since_if_none_match(Config) -> + doc("Get a file with both If-Modified-Since and If-None-Match headers." + "If-None-Match takes precedence and If-Modified-Since is ignored. (RFC7232 3.3)"), + LastModified = filelib:last_modified(config(static_dir, Config) ++ "/style.css"), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-modified-since">>, httpd_util:rfc1123_date(LastModified)}, + {<<"if-none-match">>, <<"\"not-etag\"">>} + ], Config), + ok. + +if_modified_since_invalid(Config) -> + doc("Get a file with an invalid If-Modified-Since header."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-modified-since">>, <<"\"not a date\"">>} + ], Config), + ok. + +if_none_match(Config) -> + doc("Get a file with If-None-Match not matching."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-none-match">>, <<"\"not-etag\"">>} + ], Config), + ok. + +if_none_match_fail(Config) -> + doc("Get a file with If-None-Match matching."), + {304, _, _} = do_get("/etag/custom", [ + {<<"if-none-match">>, <<"\"etag\"">>} + ], Config), + ok. + +if_none_match_invalid(Config) -> + doc("Try to get a file with an invalid If-None-Match header."), + {400, _, _} = do_get("/etag/custom", [ + {<<"if-none-match">>, <<"bad input">>} + ], Config), + ok. + +if_none_match_list(Config) -> + doc("Get a file with If-None-Match not matching."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-none-match">>, <<"\"invalid\", W/\"not-etag\", \"cowboy\"">>} + ], Config), + ok. + +if_none_match_list_fail(Config) -> + doc("Get a file with If-None-Match matching."), + {304, _, _} = do_get("/etag/custom", [ + {<<"if-none-match">>, <<"\"invalid\", \"etag\", \"cowboy\"">>} + ], Config), + ok. + +if_none_match_weak(Config) -> + doc("Try to get a file with a weak If-None-Match header matching."), + {304, _, _} = do_get("/etag/custom", [ + {<<"if-none-match">>, <<"W/\"etag\"">>} + ], Config), + ok. + +if_none_match_wildcard(Config) -> + doc("Try to get a file with a wildcard If-None-Match."), + {304, _, _} = do_get("/etag/custom", [ + {<<"if-none-match">>, <<"*">>} + ], Config), + ok. + +if_unmodified_since(Config) -> + doc("Get a file with If-Unmodified-Since equal to file modification time."), + LastModified = filelib:last_modified(config(static_dir, Config) ++ "/style.css"), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-unmodified-since">>, httpd_util:rfc1123_date(LastModified)} + ], Config), + ok. + +if_unmodified_since_fail(Config) -> + doc("Get a file with If-Unmodified-Since in the past."), + {412, _, _} = do_get("/etag/custom", [ + {<<"if-unmodified-since">>, <<"Sat, 29 Oct 1994 19:43:31 GMT">>} + ], Config), + ok. + +if_unmodified_since_future(Config) -> + doc("Get a file with If-Unmodified-Since in the future."), + {{Year, _, _}, {_, _, _}} = calendar:universal_time(), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-unmodified-since">>, [ + <<"Sat, 29 Oct ">>, + integer_to_binary(Year + 1), + <<" 19:43:31 GMT">>]} + ], Config), + ok. + +if_unmodified_since_if_match(Config) -> + doc("Get a file with both If-Unmodified-Since and If-Match headers." + "If-Match takes precedence and If-Unmodified-Since is ignored. (RFC7232 3.4)"), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-unmodified-since">>, <<"Sat, 29 Oct 1994 19:43:31 GMT">>}, + {<<"if-match">>, <<"\"etag\"">>} + ], Config), + ok. + +if_unmodified_since_invalid(Config) -> + doc("Get a file with an invalid If-Unmodified-Since header."), + {200, _, _} = do_get("/etag/custom", [ + {<<"if-unmodified-since">>, <<"\"not a date\"">>} + ], Config), + ok. + +index_file(Config) -> + doc("Get an index file."), + {200, Headers, <<"<html><body>Hello!</body></html>\n">>} = do_get("/index", Config), + {_, <<"text/html">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +index_file_slash(Config) -> + doc("Get an index file with extra slash."), + {200, Headers, <<"<html><body>Hello!</body></html>\n">>} = do_get("/index/", Config), + {_, <<"text/html">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +last_modified(Config) -> + doc("Get a file, modify it, get it again and make sure Last-Modified changes."), + {200, Headers1, _} = do_get("/dir/file.cowboy", Config), + {_, LastModified1} = lists:keyfind(<<"last-modified">>, 1, Headers1), + ok = file:change_time(config(static_dir, Config) ++ "/file.cowboy", + {{config(port, Config), 1, 1}, {1, 1, 1}}), + {200, Headers2, _} = do_get("/dir/file.cowboy", Config), + {_, LastModified2} = lists:keyfind(<<"last-modified">>, 1, Headers2), + true = LastModified1 =/= LastModified2, + ok. + +mime_all_cowboy(Config) -> + doc("Get a .cowboy file. The extension is unknown."), + {200, Headers, _} = do_get("/mime/all/file.cowboy", Config), + {_, <<"application/octet-stream">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +mime_all_css(Config) -> + doc("Get a .css file."), + {200, Headers, _} = do_get("/mime/all/style.css", Config), + {_, <<"text/css">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +mime_all_txt(Config) -> + doc("Get a .txt file."), + {200, Headers, _} = do_get("/mime/all/plain.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), + ok. + +mime_custom_cowboy(Config) -> + doc("Get a .cowboy file."), + {200, Headers, _} = do_get("/mime/custom/file.cowboy", Config), + {_, <<"application/vnd.ninenines.cowboy+xml;v=1">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +mime_custom_css(Config) -> + doc("Get a .css file. The extension is unknown."), + {200, Headers, _} = do_get("/mime/custom/style.css", Config), + {_, <<"application/octet-stream">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +mime_custom_txt(Config) -> + doc("Get a .txt file."), + {200, Headers, _} = do_get("/mime/custom/plain.txt", Config), + {_, <<"text/plain">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +mime_hardcode_binary(Config) -> + doc("Get a .cowboy file with hardcoded route."), + {200, Headers, _} = do_get("/mime/hardcode/binary-form", Config), + {_, <<"application/vnd.ninenines.cowboy+xml;v=1">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +mime_hardcode_tuple(Config) -> + doc("Get a .cowboy file with hardcoded route."), + {200, Headers, _} = do_get("/mime/hardcode/tuple-form", Config), + {_, <<"application/vnd.ninenines.cowboy+xml;v=1">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +priv_file(Config) -> + doc("Get a file with hardcoded route."), + {200, Headers, <<"body{color:red}\n">>} = do_get("/priv_file/style.css", Config), + {_, <<"text/css">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. + +unicode_basic_latin(Config) -> + doc("Get a file with non-urlencoded characters from Unicode Basic Latin block."), + _ = [case do_get("/char/" ++ [C], Config) of + {200, _, << C >>} -> ok; + Error -> exit({error, C, Error}) + end || C <- + %% Excluding the dot which has a special meaning in URLs + %% when they are the only content in a path segment, + %% and is tested as part of filenames in other test cases. + "abcdefghijklmnopqrstuvwxyz" + "ABCDEFGHIJKLMNOPQRSTUVWXYZ" + "0123456789" + ":@-_~!$&'()*+,;=" + ], + ok. + +unicode_basic_error(Config) -> + doc("Try to get a file with invalid non-urlencoded characters from Unicode Basic Latin block."), + Exclude = case config(protocol, Config) of + %% Some characters trigger different errors in HTTP/1.1 + %% because they are used for the protocol. + %% + %% # and ? indicate fragment and query components + %% and are therefore not part of the path. + http -> "\r\s#?"; + http2 -> "#?" + end, + _ = [case do_get("/char/" ++ [C], Config) of + {500, _, _} -> ok; + Error -> exit({error, C, Error}) + end || C <- (config(chars, Config) -- Exclude) -- + "abcdefghijklmnopqrstuvwxyz" + "ABCDEFGHIJKLMNOPQRSTUVWXYZ" + "0123456789" + ":@-_~!$&'()*+,;=" + ], + ok. + +unicode_basic_latin_urlencoded(Config) -> + doc("Get a file with urlencoded characters from Unicode Basic Latin block."), + _ = [case do_get(lists:flatten(["/char/%", io_lib:format("~2.16.0b", [C])]), Config) of + {200, _, << C >>} -> ok; + Error -> exit({error, C, Error}) + end || C <- config(chars, Config)], + ok. + +unknown_option(Config) -> + doc("Get a file configured with unknown extra options."), + {200, Headers, <<"body{color:red}\n">>} = do_get("/unknown/option", Config), + {_, <<"text/css">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. |