From 5964273cc4354b7378b8bdf49fe455d2b46d7c3b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Mon, 26 Mar 2018 18:49:09 +0200
Subject: Fix the flushing of messages when switching to Websocket

We now flush messages that are specific to cowboy_http only.

Stream handlers should also flush their own specific messages
if necessary, although timeouts will be flushed regardless
of where they originate from.

Also renames the http_SUITE to old_http_SUITE to distinguish
new tests from old tests. Most old tests need to be removed
or converted eventually as they're legacy tests from Cowboy 1.0.
---
 test/handlers/switch_protocol_flush_h.erl | 50 +++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 test/handlers/switch_protocol_flush_h.erl

(limited to 'test/handlers/switch_protocol_flush_h.erl')

diff --git a/test/handlers/switch_protocol_flush_h.erl b/test/handlers/switch_protocol_flush_h.erl
new file mode 100644
index 0000000..3d525ee
--- /dev/null
+++ b/test/handlers/switch_protocol_flush_h.erl
@@ -0,0 +1,50 @@
+%% This module is used to test the flushing of messages when
+%% switch_protocol is executed by cowboy_http.
+
+-module(switch_protocol_flush_h).
+
+-export([init/3]).
+-export([info/3]).
+-export([terminate/3]).
+-export([takeover/7]).
+-export([validate/1]).
+
+init(StreamID, Req, _) ->
+	Pid = list_to_pid(binary_to_list(cowboy_req:header(<<"x-test-pid">>, Req))),
+	%% Send ourselves a few messages that may or may not be flushed.
+	self() ! good,
+	self() ! {'EXIT', Pid, normal},
+	self() ! {system, a, b},
+	self() ! {{self(), StreamID}, hello},
+	self() ! {'$gen_call', a, b},
+	self() ! {timeout, make_ref(), ?MODULE},
+	self() ! {ranch_tcp, socket, <<"123">>},
+	{[{switch_protocol, #{}, ?MODULE, Pid}], undefined}.
+
+info(_, _, State) ->
+	{[], State}.
+
+terminate(_, _, _) ->
+	ok.
+
+takeover(_, _, _, _, _, _, Pid) ->
+	Msgs = receive_all([]),
+	Pid ! {Pid, Msgs},
+	exit(normal).
+
+receive_all(Acc) ->
+	receive
+		Msg ->
+			receive_all([Msg|Acc])
+	after 0 ->
+		Acc
+	end.
+
+validate(Msgs) ->
+	[
+		{ranch_tcp, socket, <<"123">>},
+		{'$gen_call', a, b},
+		{system, a, b},
+		good
+	] = Msgs,
+	ok.
-- 
cgit v1.2.3