aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/old_http_SUITE.erl31
-rw-r--r--test/rfc7230_SUITE.erl19
-rw-r--r--test/rfc7231_SUITE.erl10
3 files changed, 29 insertions, 31 deletions
diff --git a/test/old_http_SUITE.erl b/test/old_http_SUITE.erl
index f50bb48..6d7c2c8 100644
--- a/test/old_http_SUITE.erl
+++ b/test/old_http_SUITE.erl
@@ -119,32 +119,9 @@ do_get(Path, Config) ->
%% Tests.
-check_raw_status(Config) ->
- Huge = [$0 || _ <- lists:seq(1, 5000)],
- HugeCookie = lists:flatten(["whatever_man_biiiiiiiiiiiig_cookie_me_want_77="
- "Wed Apr 06 2011 10:38:52 GMT-0500 (CDT)" || _ <- lists:seq(1, 40)]),
- Tests = [
- {200, ["GET / HTTP/1.0\r\nHost: localhost\r\n"
- "Set-Cookie: ", HugeCookie, "\r\n\r\n"]},
- {200, "\r\n\r\n\r\n\r\n\r\nGET / HTTP/1.1\r\nHost: localhost\r\n\r\n"},
- {400, "\n"},
- {400, "Garbage\r\n\r\n"},
- {400, "\r\n\r\n\r\n\r\n\r\n\r\n"},
- {400, "GET HTTP/1.1\r\nHost: localhost\r\n\r\n"},
- {400, "GET / HTTP/1.1\r\nHost: ninenines.eu\r\n\r\n"},
- {400, "GET / HTTP/1.1\r\nHost: localhost:bad_port\r\n\r\n"},
- {closed, Huge}
- ],
- _ = [{Status, Packet} = begin
- Ret = do_raw(Packet, Config),
- {Ret, Packet}
- end || {Status, Packet} <- Tests],
- ok.
-
check_status(Config) ->
Tests = [
{200, "/simple"},
- {404, "/not/found"},
{500, "/handler_errors?case=init_before_reply"}
],
_ = [{Status, URL} = begin
@@ -158,14 +135,6 @@ error_init_after_reply(Config) ->
{response, nofin, 200, _} = gun:await(ConnPid, Ref),
ok.
-headers_dupe(Config) ->
- ConnPid = gun_open(Config),
- Ref = gun:get(ConnPid, "/headers/dupe"),
- {response, nofin, 200, Headers} = gun:await(ConnPid, Ref),
- %% Ensure that only one connection header was received.
- [<<"close">>] = [V || {Name, V} <- Headers, Name =:= <<"connection">>],
- gun_down(ConnPid).
-
keepalive_nl(Config) ->
ConnPid = gun_open(Config),
Refs = [begin
diff --git a/test/rfc7230_SUITE.erl b/test/rfc7230_SUITE.erl
index 0ef1690..fbf4da9 100644
--- a/test/rfc7230_SUITE.erl
+++ b/test/rfc7230_SUITE.erl
@@ -640,6 +640,15 @@ invalid_request_target(Config) ->
"\r\n"),
{error, closed} = raw_recv(Client, 0, 1000).
+missing_request_target(Config) ->
+ doc("The lack of request target must be rejected with a 400 status code "
+ "and the closing of the connection."),
+ #{code := 400, client := Client} = do_raw(Config,
+ "GET HTTP/1.1\r\n"
+ "Host: localhost\r\n"
+ "\r\n"),
+ {error, closed} = raw_recv(Client, 0, 1000).
+
%% Between request-target and version.
reject_tab_between_request_target_and_version(Config) ->
@@ -1641,6 +1650,16 @@ empty_host(Config0) ->
%%
%% This is covered in req_SUITE in the tests for cowboy_req:uri/1,2.
+reject_non_authoritative_host(Config) ->
+ doc("A request with a host header for which the origin server is "
+ "not authoritative must be rejected with a 400 status code. "
+ "(RFC7230 5.5, RFC7230 9.1)"),
+ #{code := 400} = do_raw(Config, [
+ "GET / HTTP/1.1\r\n"
+ "Host: ninenines.eu\r\n"
+ "\r\n"]),
+ ok.
+
%@todo
%Resources with identical URI except for the scheme component
%must be treated as different. (RFC7230 2.7.2)
diff --git a/test/rfc7231_SUITE.erl b/test/rfc7231_SUITE.erl
index 642429b..89ec7b4 100644
--- a/test/rfc7231_SUITE.erl
+++ b/test/rfc7231_SUITE.erl
@@ -611,6 +611,16 @@ status_code_404(Config) ->
{response, _, 404, _} = gun:await(ConnPid, Ref),
ok.
+status_code_404_not_found(Config) ->
+ doc("The 404 Not Found status code is sent when the target "
+ "resource does not exist. (RFC7231 6.5.4)"),
+ ConnPid = gun_open(Config),
+ Ref = gun:get(ConnPid, "/not/found", [
+ {<<"accept-encoding">>, <<"gzip">>}
+ ]),
+ {response, _, 404, _} = gun:await(ConnPid, Ref),
+ ok.
+
status_code_405(Config) ->
doc("The 405 Method Not Allowed status code can be sent. (RFC7231 6.5.5)"),
ConnPid = gun_open(Config),