aboutsummaryrefslogtreecommitdiffstats
path: root/test/accept_ack_protocol.erl
diff options
context:
space:
mode:
Diffstat (limited to 'test/accept_ack_protocol.erl')
-rw-r--r--test/accept_ack_protocol.erl22
1 files changed, 22 insertions, 0 deletions
diff --git a/test/accept_ack_protocol.erl b/test/accept_ack_protocol.erl
new file mode 100644
index 0000000..3c36fc7
--- /dev/null
+++ b/test/accept_ack_protocol.erl
@@ -0,0 +1,22 @@
+-module(accept_ack_protocol).
+-behaviour(ranch_protocol).
+
+-export([start_link/4]).
+-export([init/4]).
+
+start_link(Ref, Socket, Transport, Opts) ->
+ Pid = spawn_link(?MODULE, init, [Ref, Socket, Transport, Opts]),
+ {ok, Pid}.
+
+init(Ref, Socket, Transport, _Opts = []) ->
+ ok = ranch:accept_ack(Ref),
+ loop(Socket, Transport).
+
+loop(Socket, Transport) ->
+ case Transport:recv(Socket, 0, 5000) of
+ {ok, Data} ->
+ Transport:send(Socket, Data),
+ loop(Socket, Transport);
+ _ ->
+ ok = Transport:close(Socket)
+ end.