path: root/test/handlers/ws_timeout_close_h.erl

%% 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}.