aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/old_http_SUITE.erl19
-rw-r--r--test/req_SUITE.erl25
2 files changed, 16 insertions, 28 deletions
diff --git a/test/old_http_SUITE.erl b/test/old_http_SUITE.erl
index 539ab04..e74f648 100644
--- a/test/old_http_SUITE.erl
+++ b/test/old_http_SUITE.erl
@@ -245,25 +245,6 @@ check_status(Config) ->
{Ret, URL}
end || {Status, URL} <- Tests].
-%% Check if sending requests whose size is around the MTU breaks something.
-echo_body(Config) ->
- MTU = ct_helper:get_loopback_mtu(),
- _ = [begin
- Body = list_to_binary(lists:duplicate(Size, $a)),
- ConnPid = gun_open(Config),
- Ref = gun:post(ConnPid, "/echo/body", [], Body),
- {response, nofin, 200, _} = gun:await(ConnPid, Ref),
- {ok, Body} = gun:await_body(ConnPid, Ref)
- end || Size <- lists:seq(MTU - 500, MTU)],
- ok.
-
-%% Check if sending request whose size is bigger than 1000000 bytes causes 413
-echo_body_max_length(Config) ->
- ConnPid = gun_open(Config),
- Ref = gun:post(ConnPid, "/echo/body", [], << 0:10000000/unit:8 >>),
- {response, nofin, 413, _} = gun:await(ConnPid, Ref),
- ok.
-
error_init_after_reply(Config) ->
ConnPid = gun_open(Config),
Ref = gun:get(ConnPid, "/handler_errors?case=init_after_reply"),
diff --git a/test/req_SUITE.erl b/test/req_SUITE.erl
index 22434b6..6866123 100644
--- a/test/req_SUITE.erl
+++ b/test/req_SUITE.erl
@@ -432,28 +432,35 @@ read_body(Config) ->
<<"hello world!">> = do_body("POST", "/read_body", [], "hello world!", Config),
%% We expect to have read *at least* 1000 bytes.
<<0:8000, _/bits>> = do_body("POST", "/opts/read_body/length", [], <<0:8000000>>, Config),
- %% We read any length for at most 1 second.
- %%
- %% The body is sent twice, first with nofin, then wait 2 seconds, then again with fin.
- <<0:8000000>> = do_read_body_period("/opts/read_body/period", <<0:8000000>>, Config),
%% The timeout value is set too low on purpose to ensure a crash occurs.
ok = do_read_body_timeout("/opts/read_body/timeout", <<0:8000000>>, Config),
%% 10MB body larger than default length.
<<0:80000000>> = do_body("POST", "/full/read_body", [], <<0:80000000>>, Config),
ok.
-do_read_body_period(Path, Body, Config) ->
+read_body_mtu(Config) ->
+ doc("Request body whose sizes are around the MTU."),
+ MTU = ct_helper:get_loopback_mtu(),
+ _ = [begin
+ Body = <<0:Size/unit:8>>,
+ Body = do_body("POST", "/full/read_body", [], Body, Config)
+ end || Size <- lists:seq(MTU - 10, MTU + 10)],
+ ok.
+
+read_body_period(Config) ->
+ doc("Read the request body for at most 1 second."),
ConnPid = gun_open(Config),
- Ref = gun:request(ConnPid, "POST", Path, [
+ Body = <<0:8000000>>,
+ Ref = gun:request(ConnPid, "POST", "/opts/read_body/period", [
{<<"content-length">>, integer_to_binary(byte_size(Body) * 2)}
]),
+ %% The body is sent twice, first with nofin, then wait 2 seconds, then again with fin.
gun:data(ConnPid, Ref, nofin, Body),
timer:sleep(2000),
gun:data(ConnPid, Ref, fin, Body),
{response, nofin, 200, _} = gun:await(ConnPid, Ref),
- {ok, RespBody} = gun:await_body(ConnPid, Ref),
- gun:close(ConnPid),
- RespBody.
+ {ok, Body} = gun:await_body(ConnPid, Ref),
+ gun:close(ConnPid).
%% We expect a crash.
do_read_body_timeout(Path, Body, Config) ->