diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/http_SUITE.erl | 4 | ||||
-rw-r--r-- | test/http_handler_long_polling.erl | 22 |
2 files changed, 25 insertions, 1 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl index 187d5af..d32804e 100644 --- a/test/http_SUITE.erl +++ b/test/http_SUITE.erl @@ -97,6 +97,7 @@ init_http_dispatch() -> {[<<"ws_timeout_hibernate">>], ws_timeout_hibernate_handler, []}, {[<<"ws_init_shutdown">>], websocket_handler_init_shutdown, []}, {[<<"init_shutdown">>], http_handler_init_shutdown, []}, + {[<<"long_polling">>], http_handler_long_polling, []}, {[<<"headers">>, <<"dupe">>], http_handler, [{headers, [{<<"Connection">>, <<"close">>}]}]}, {[], http_handler, []} @@ -227,7 +228,8 @@ raw(Config) -> {"GET / HTTP/1.1\r\nHost: localhost\r\n\r", 408}, {"GET http://localhost/ HTTP/1.1\r\n\r\n", 501}, {"GET / HTTP/1.2\r\nHost: localhost\r\n\r\n", 505}, - {"GET /init_shutdown HTTP/1.1\r\nHost: localhost\r\n\r\n", 666} + {"GET /init_shutdown HTTP/1.1\r\nHost: localhost\r\n\r\n", 666}, + {"GET /long_polling HTTP/1.1\r\nHost: localhost\r\n\r\n", 102} ], [{Packet, StatusCode} = raw_req(Packet, Config) || {Packet, StatusCode} <- Tests]. diff --git a/test/http_handler_long_polling.erl b/test/http_handler_long_polling.erl new file mode 100644 index 0000000..374e244 --- /dev/null +++ b/test/http_handler_long_polling.erl @@ -0,0 +1,22 @@ +%% Feel free to use, reuse and abuse the code in this file. + +-module(http_handler_long_polling). +-behaviour(cowboy_http_handler). +-export([init/3, handle/2, info/3, terminate/2]). + +init({_Transport, http}, Req, _Opts) -> + erlang:send_after(500, self(), timeout), + {loop, Req, 9, 5000, hibernate}. + +handle(_Req, _State) -> + exit(badarg). + +info(timeout, Req, 0) -> + {ok, Req2} = cowboy_http_req:reply(102, [], [], Req), + {ok, Req2, 0}; +info(timeout, Req, State) -> + erlang:send_after(500, self(), timeout), + {loop, Req, State - 1, hibernate}. + +terminate(_Req, _State) -> + ok. |