From 0223f69fcd2252a4b686b2815e6ee287b1484551 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Thu, 22 Nov 2018 00:12:18 +0100 Subject: Move the final old HTTP suite tests and remove it --- test/old_http_SUITE_data/http_loop_stream_recv.erl | 34 ---------------------- 1 file changed, 34 deletions(-) delete mode 100644 test/old_http_SUITE_data/http_loop_stream_recv.erl (limited to 'test/old_http_SUITE_data/http_loop_stream_recv.erl') diff --git a/test/old_http_SUITE_data/http_loop_stream_recv.erl b/test/old_http_SUITE_data/http_loop_stream_recv.erl deleted file mode 100644 index 8c6f6b0..0000000 --- a/test/old_http_SUITE_data/http_loop_stream_recv.erl +++ /dev/null @@ -1,34 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - --module(http_loop_stream_recv). - --export([init/2]). --export([info/3]). --export([terminate/3]). - -init(Req, _) -> - receive after 100 -> ok end, - self() ! stream, - {cowboy_loop, Req, undefined}. - -info(stream, Req, undefined) -> - stream(Req, 1, <<>>). - -stream(Req, ID, Acc) -> - case cowboy_req:read_body(Req) of - {ok, <<>>, Req2} -> - {stop, cowboy_req:reply(200, Req2), undefined}; - {_, Data, Req2} -> - parse_id(Req2, ID, << Acc/binary, Data/binary >>) - end. - -parse_id(Req, ID, Data) -> - case Data of - << ID:32, Rest/bits >> -> - parse_id(Req, ID + 1, Rest); - _ -> - stream(Req, ID, Data) - end. - -terminate(stop, _, _) -> - ok. -- cgit v1.2.3