From 185d928e1a9d43932a891f68d7f4063bd71febc9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Sat, 18 Nov 2017 00:19:01 +0100 Subject: Remove duplicate /echo/body_qs tests from the old suite --- test/http_SUITE_data/http_body_qs.erl | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 test/http_SUITE_data/http_body_qs.erl (limited to 'test/http_SUITE_data') diff --git a/test/http_SUITE_data/http_body_qs.erl b/test/http_SUITE_data/http_body_qs.erl deleted file mode 100644 index 8599640..0000000 --- a/test/http_SUITE_data/http_body_qs.erl +++ /dev/null @@ -1,32 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - --module(http_body_qs). - --export([init/2]). - -init(Req, Opts) -> - Method = cowboy_req:method(Req), - HasBody = cowboy_req:has_body(Req), - {ok, maybe_echo(Method, HasBody, Req), Opts}. - -maybe_echo(<<"POST">>, true, Req) -> - try cowboy_req:read_urlencoded_body(Req) of - {ok, PostVals, Req2} -> - echo(proplists:get_value(<<"echo">>, PostVals), Req2) - catch _:_ -> - echo(badlength, Req) - end; -maybe_echo(<<"POST">>, false, Req) -> - cowboy_req:reply(400, #{}, <<"Missing body.">>, Req); -maybe_echo(_, _, Req) -> - %% Method not allowed. - cowboy_req:reply(405, Req). - -echo(badlength, Req) -> - cowboy_req:reply(413, #{}, <<"POST body bigger than 16000 bytes">>, Req); -echo(undefined, Req) -> - cowboy_req:reply(400, #{}, <<"Missing echo parameter.">>, Req); -echo(Echo, Req) -> - cowboy_req:reply(200, #{ - <<"content-type">> => <<"text/plain; charset=utf-8">> - }, Echo, Req). -- cgit v1.2.3