dudeswave2/gun/test/handlers/ws_timeout_close_h.erl

26 lines
551 B
Erlang
Raw Permalink Normal View History

%% Feel free to use, reuse and abuse the code in this file.
-module(ws_timeout_close_h).
-export([init/2]).
-export([websocket_init/1]).
-export([websocket_handle/2]).
-export([websocket_info/2]).
init(Req, State) ->
{cowboy_websocket, Req, State, #{
compress => true
}}.
websocket_init(Timeout) ->
_ = erlang:send_after(Timeout, self(), timeout_close),
{[], undefined}.
websocket_handle(_Frame, State) ->
{[], State}.
websocket_info(timeout_close, State) ->
{[{close, 3333, <<>>}], State};
websocket_info(_Info, State) ->
{[], State}.