diff options
Diffstat (limited to 'src/web/websocket_test.erl')
| -rw-r--r-- | src/web/websocket_test.erl | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/src/web/websocket_test.erl b/src/web/websocket_test.erl index b5491bc08..cbe65392a 100644 --- a/src/web/websocket_test.erl +++ b/src/web/websocket_test.erl @@ -1,19 +1,14 @@ --module (websocket_test). +-module(websocket_test). + -export([start_link/1, loop/1]). -% callback on received websockets data start_link(Ws) -> - Pid = spawn_link(?MODULE, loop, [Ws]), - {ok, Pid}. + Pid = spawn_link(?MODULE, loop, [Ws]), {ok, Pid}. loop(Ws) -> - receive - {browser, Data} -> - Ws:send(["received '", Data, "'"]), - loop(Ws); - _Ignore -> - loop(Ws) - after 5000 -> - Ws:send("pushing!"), - loop(Ws) - end. + receive + {browser, Data} -> + Ws:send([<<"received '">>, Data, <<"'">>]), loop(Ws); + _Ignore -> loop(Ws) + after 5000 -> Ws:send(<<"pushing!">>), loop(Ws) + end. |