aboutsummaryrefslogtreecommitdiffstats
path: root/test/echo_protocol.erl
diff options
context:
space:
mode:
Diffstat (limited to 'test/echo_protocol.erl')
-rw-r--r--test/echo_protocol.erl19
1 files changed, 19 insertions, 0 deletions
diff --git a/test/echo_protocol.erl b/test/echo_protocol.erl
new file mode 100644
index 0000000..950cb06
--- /dev/null
+++ b/test/echo_protocol.erl
@@ -0,0 +1,19 @@
+-module(echo_protocol).
+-export([start_link/4, init/4]).
+
+start_link(ListenerPid, Socket, Transport, Opts) ->
+ Pid = spawn_link(?MODULE, init, [ListenerPid, Socket, Transport, Opts]),
+ {ok, Pid}.
+
+init(ListenerPid, Socket, Transport, _Opts = []) ->
+ ok = ranch:accept_ack(ListenerPid),
+ 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.