umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-15 20:50:24 +00:00
Code Issues Wiki Activity

Remove cowboy_client; use gun for the HTTP test suite

Browse source
This commit is contained in:
Loïc Hoguin 2014-03-24 14:20:52 +01:00
parent d4ce3c638d
commit 704f61c9d1
3 changed files with 558 additions and 1068 deletions
Download patch file Download diff file Expand all files Collapse all files

1310
test/http_SUITE.erl
View file

File diff suppressed because it is too large Load diff

41
test/http_SUITE_data/http_loop_stream_recv.erl
View file

@ -8,34 +8,27 @@
init({_, http}, Req, _) ->
receive after 100 -> ok end,
self() ! stream,
{loop, Req, 1, 100}.
{loop, Req, undefined, 100}.
info(stream, Req, Id) ->
case stream_next(Req) of
{ok, Id, Req2} ->
info(stream, Req2, Id+1);
info(stream, Req, undefined) ->
stream(Req, 1, <<>>).
stream(Req, ID, Acc) ->
case cowboy_req:stream_body(Req) of
{ok, Data, Req2} ->
parse_id(Req2, ID, << Acc/binary, Data/binary >>);
{done, Req2} ->
{ok, Req3} = cowboy_req:reply(200, Req2),
{ok, Req3, Id}
{ok, Req3, undefined}
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({normal, shutdown}, _, _) ->
ok.
stream_next(Req) ->
stream_next(<<>>, Req).
stream_next(Buffer, Req) ->
case cowboy_req:stream_body(Req) of
{ok, Packet, Req2} ->
case <<Buffer/binary, Packet/binary>> of
<<Id:32>> ->
{ok, Id, Req2};
Buffer2 when byte_size(Buffer2) < 4 ->
stream_next(Buffer2, Req2);
_InvalidBuffer ->
{error, invalid_chunk}
end;
Other ->
Other
end.