diff options
Diffstat (limited to 'test/acceptor_SUITE.erl')
| -rw-r--r-- | test/acceptor_SUITE.erl | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/test/acceptor_SUITE.erl b/test/acceptor_SUITE.erl index 3c13d20..3a58fd9 100644 --- a/test/acceptor_SUITE.erl +++ b/test/acceptor_SUITE.erl @@ -28,7 +28,6 @@ all() -> groups() -> [{tcp, [ - tcp_accept_socket, tcp_active_echo, tcp_echo, tcp_graceful, @@ -47,7 +46,6 @@ groups() -> tcp_error_eacces ]}, {ssl, [ ssl_accept_error, - ssl_accept_socket, ssl_active_echo, ssl_echo, ssl_graceful, @@ -399,24 +397,6 @@ ssl_accept_error(_) -> true = is_process_alive(AcceptorPid), ok = ranch:stop_listener(Name). -ssl_accept_socket(_) -> - doc("Ensure that listener can use an externally opened SSL listen socket."), - Name = name(), - Opts = ct_helper:get_certs_from_ets(), - {ok, S} = ssl:listen(0, [binary, {active, false}, {packet, raw}, {reuseaddr, true}|Opts]), - {ok, _} = ranch:start_listener(Name, - ranch_ssl, #{socket => S}, - echo_protocol, []), - Port = ranch:get_port(Name), - {ok, Socket} = ssl:connect("localhost", Port, [binary, {active, false}, {packet, raw}]), - ok = ssl:send(Socket, <<"TCP Ranch is working!">>), - {ok, <<"TCP Ranch is working!">>} = ssl:recv(Socket, 21, 1000), - ok = ranch:stop_listener(Name), - {error, closed} = ssl:recv(Socket, 0, 1000), - %% Make sure the listener stopped. - {'EXIT', _} = begin catch ranch:get_port(Name) end, - ok. - ssl_active_echo(_) -> doc("Ensure that active mode works with SSL transport."), Name = name(), @@ -656,23 +636,6 @@ ssl_error_eacces(_) -> %% tcp. -tcp_accept_socket(_) -> - doc("Ensure that listener can use an externally opened TCP listen socket."), - Name = name(), - {ok, S} = gen_tcp:listen(0, [binary, {active, false}, {packet, raw}, {reuseaddr, true}]), - {ok, _} = ranch:start_listener(Name, - ranch_tcp, #{socket => S}, - echo_protocol, []), - Port = ranch:get_port(Name), - {ok, Socket} = gen_tcp:connect("localhost", Port, [binary, {active, false}, {packet, raw}]), - ok = gen_tcp:send(Socket, <<"TCP Ranch is working!">>), - {ok, <<"TCP Ranch is working!">>} = gen_tcp:recv(Socket, 21, 1000), - ok = ranch:stop_listener(Name), - {error, closed} = gen_tcp:recv(Socket, 0, 1000), - %% Make sure the listener stopped. - {'EXIT', _} = begin catch ranch:get_port(Name) end, - ok. - tcp_active_echo(_) -> doc("Ensure that active mode works with TCP transport."), Name = name(), |