diff options
Diffstat (limited to 'test/http_SUITE_data/http_long_polling.erl')
-rw-r--r-- | test/http_SUITE_data/http_long_polling.erl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test/http_SUITE_data/http_long_polling.erl b/test/http_SUITE_data/http_long_polling.erl new file mode 100644 index 0000000..ad4e66e --- /dev/null +++ b/test/http_SUITE_data/http_long_polling.erl @@ -0,0 +1,24 @@ +%% Feel free to use, reuse and abuse the code in this file. + +-module(http_long_polling). +-behaviour(cowboy_http_handler). +-export([init/3, handle/2, info/3, terminate/3]). + +init({_Transport, http}, Req, _Opts) -> + erlang:send_after(500, self(), timeout), + {loop, Req, 5, 5000, hibernate}. + +handle(_Req, _State) -> + exit(badarg). + +info(timeout, Req, 0) -> + {ok, Req2} = cowboy_req:reply(102, Req), + {ok, Req2, 0}; +info(timeout, Req, State) -> + erlang:send_after(500, self(), timeout), + {loop, Req, State - 1, hibernate}. + +terminate({normal, shutdown}, _, _) -> + ok; +terminate({error, overflow}, _, _) -> + ok. |