1 files changed, 25 insertions, 0 deletions
diff --git a/test/handlers/ws_timeout_close_h.erl b/test/handlers/ws_timeout_close_h.erl
new file mode 100644
index 0000000..6fef168
--- /dev/null
+++ b/test/handlers/ws_timeout_close_h.erl
@@ -0,0 +1,25 @@
+%% 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}.