From b72fe3e67e65c66d979a9651ebc815bdc553601c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Tue, 24 Jul 2012 12:58:54 +0200 Subject: Introduce the ranch_server registry, make it handle listeners --- test/acceptor_SUITE.erl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'test/acceptor_SUITE.erl') diff --git a/test/acceptor_SUITE.erl b/test/acceptor_SUITE.erl index bf74a1d..c1313cc 100644 --- a/test/acceptor_SUITE.erl +++ b/test/acceptor_SUITE.erl @@ -81,6 +81,8 @@ ssl_echo(Config) -> {ok, <<"SSL Ranch is working!">>} = ssl:recv(Socket, 21, 1000), ok = ranch:stop_listener(ssl_echo), {error, closed} = ssl:recv(Socket, 0, 1000), + %% Make sure the listener stopped. + {'EXIT', _} = begin catch ranch:get_port(ssl_echo) end, ok. %% tcp. @@ -95,4 +97,6 @@ tcp_echo(_) -> {ok, <<"TCP Ranch is working!">>} = gen_tcp:recv(Socket, 21, 1000), ok = ranch:stop_listener(tcp_echo), {error, closed} = gen_tcp:recv(Socket, 0, 1000), + %% Make sure the listener stopped. + {'EXIT', _} = begin catch ranch:get_port(tcp_echo) end, ok. -- cgit v1.2.3