diff options
Diffstat (limited to 'test/http_SUITE_data')
-rw-r--r-- | test/http_SUITE_data/http_multipart.erl | 18 | ||||
-rw-r--r-- | test/http_SUITE_data/http_multipart_stream.erl | 27 |
2 files changed, 0 insertions, 45 deletions
diff --git a/test/http_SUITE_data/http_multipart.erl b/test/http_SUITE_data/http_multipart.erl deleted file mode 100644 index 5a4c6be..0000000 --- a/test/http_SUITE_data/http_multipart.erl +++ /dev/null @@ -1,18 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - --module(http_multipart). - --export([init/2]). - -init(Req, Opts) -> - {Result, Req2} = acc_multipart(Req, []), - {ok, cowboy_req:reply(200, #{}, term_to_binary(Result), Req2), Opts}. - -acc_multipart(Req, Acc) -> - case cowboy_req:read_part(Req) of - {ok, Headers, Req2} -> - {ok, Body, Req3} = cowboy_req:read_part_body(Req2), - acc_multipart(Req3, [{Headers, Body}|Acc]); - {done, Req2} -> - {lists:reverse(Acc), Req2} - end. diff --git a/test/http_SUITE_data/http_multipart_stream.erl b/test/http_SUITE_data/http_multipart_stream.erl deleted file mode 100644 index 88cf611..0000000 --- a/test/http_SUITE_data/http_multipart_stream.erl +++ /dev/null @@ -1,27 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - --module(http_multipart_stream). - --export([init/2]). - -init(Req, Opts) -> - Req2 = multipart(Req), - {ok, cowboy_req:reply(200, Req2), Opts}. - -multipart(Req) -> - case cowboy_req:read_part(Req) of - {ok, [{<<"content-length">>, BinLength}], Req2} -> - Length = binary_to_integer(BinLength), - {Length, Req3} = stream_body(Req2, 0), - multipart(Req3); - {done, Req2} -> - Req2 - end. - -stream_body(Req, N) -> - case cowboy_req:read_part_body(Req) of - {ok, Data, Req2} -> - {N + byte_size(Data), Req2}; - {more, Data, Req2} -> - stream_body(Req2, N + byte_size(Data)) - end. |