diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-05-28 00:12:00 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-05-28 00:12:00 +1000 |
| commit | e4ec23919de96f034190253c8cef50f2f02c0b3a (patch) | |
| tree | 2733981d8189047ffb47dc47adc072e5240e0e7e /src/websocket_test.erl | |
| parent | Merge branch '3.0.x' of github.com:processone/maincustomers into 3.0.x (diff) | |
| parent | Improve applications startup (diff) | |
Merge branch 'rebar' into 3.0.xv3.0.0-P004
Diffstat (limited to 'src/websocket_test.erl')
| -rw-r--r-- | src/websocket_test.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/websocket_test.erl b/src/websocket_test.erl new file mode 100644 index 000000000..cbe65392a --- /dev/null +++ b/src/websocket_test.erl @@ -0,0 +1,14 @@ +-module(websocket_test). + +-export([start_link/1, loop/1]). + +start_link(Ws) -> + 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. |