diff options
Diffstat (limited to 'test/http_SUITE.erl')
| -rw-r--r-- | test/http_SUITE.erl | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl index 5cc63f1..73ac127 100644 --- a/test/http_SUITE.erl +++ b/test/http_SUITE.erl @@ -64,6 +64,7 @@ -export([rest_options_default/1]). -export([rest_param_all/1]). -export([rest_patch/1]). +-export([rest_postonly/1]). -export([rest_resource_etags/1]). -export([rest_resource_etags_if_none_match/1]). -export([set_env_dispatch/1]). @@ -135,6 +136,7 @@ groups() -> rest_options_default, rest_param_all, rest_patch, + rest_postonly, rest_resource_etags, rest_resource_etags_if_none_match, set_resp_body, @@ -366,6 +368,7 @@ init_dispatch(Config) -> {"/missing_get_callbacks", rest_missing_callbacks, []}, {"/missing_put_callbacks", rest_missing_callbacks, []}, {"/nodelete", rest_nodelete_resource, []}, + {"/postonly", rest_postonly_resource, []}, {"/patch", rest_patch_resource, []}, {"/resetags", rest_resource_etags, []}, {"/rest_expires", rest_expires, []}, @@ -496,7 +499,8 @@ The document has moved _ = [{Status, Packet} = begin Ret = quick_raw(Packet, Config), {Ret, Packet} - end || {Status, Packet} <- Tests]. + end || {Status, Packet} <- Tests], + ok. check_status(Config) -> Tests = [ @@ -536,7 +540,7 @@ chunked_response(Config) -> echo_body(Config) -> Client = ?config(client, Config), {ok, [{mtu, MTU}]} = inet:ifget("lo", [mtu]), - [begin + _ = [begin Body = list_to_binary(lists:duplicate(Size, $a)), {ok, Client2} = cowboy_client:request(<<"POST">>, build_url("/echo/body", Config), @@ -544,7 +548,8 @@ echo_body(Config) -> Body, Client), {ok, 200, _, Client3} = cowboy_client:response(Client2), {ok, Body, _} = cowboy_client:response_body(Client3) - end || Size <- lists:seq(MTU - 500, MTU)]. + 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) -> @@ -992,6 +997,15 @@ rest_patch(Config) -> ok end || {Status, Headers, Body} <- Tests]. +rest_postonly(Config) -> + Client = ?config(client, Config), + Headers = [ + {<<"content-type">>, <<"text/plain">>} + ], + {ok, Client2} = cowboy_client:request(<<"POST">>, + build_url("/postonly", Config), Headers, "12345", Client), + {ok, 204, _, _} = cowboy_client:response(Client2). + rest_resource_get_etag(Config, Type) -> rest_resource_get_etag(Config, Type, []). |