From fa608621bfedbb981657d2d09e2b321dddc0ad8e Mon Sep 17 00:00:00 2001
From: "j.uhlig" <j.uhlig@mailingwork.de>
Date: Tue, 13 Mar 2018 09:31:20 +0100
Subject: Fix ranch:info/0 and ranch:procs/2 in embedded mode

---
 test/embedded_sup.erl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 test/embedded_sup.erl

(limited to 'test/embedded_sup.erl')

diff --git a/test/embedded_sup.erl b/test/embedded_sup.erl
new file mode 100644
index 0000000..52275e0
--- /dev/null
+++ b/test/embedded_sup.erl
@@ -0,0 +1,28 @@
+-module(embedded_sup).
+-behaviour(supervisor).
+-export([init/1]).
+
+-export([start_link/0]).
+-export([stop/1]).
+-export([start_listener/6]).
+-export([stop_listener/2]).
+
+start_link() ->
+	supervisor:start_link(?MODULE, []).
+
+stop(SupPid) ->
+	erlang:exit(SupPid, normal).
+
+init([]) ->
+	{ok, {{one_for_one, 10, 10}, []}}.
+
+start_listener(SupPid, Ref, Transport, TransOpts, Protocol, ProtoOpts) ->
+	supervisor:start_child(
+		SupPid,
+		ranch:child_spec(Ref, Transport, TransOpts, Protocol, ProtoOpts)
+	).
+
+stop_listener(SupPid, Ref) ->
+	ok = supervisor:terminate_child(SupPid, {ranch_listener_sup, Ref}),
+	ok = supervisor:delete_child(SupPid, {ranch_listener_sup, Ref}),
+	ranch_server:cleanup_listener_opts(Ref).
-- 
cgit v1.2.3