aboutsummaryrefslogtreecommitdiffstats
path: root/test/acceptor_SUITE.erl
diff options
context:
space:
mode:
authorj.uhlig <[email protected]>2018-06-26 17:07:13 +0200
committerLoïc Hoguin <[email protected]>2018-07-02 09:02:00 +0200
commit5ada450fe10a5fc51b7f3f0900571a10547635a1 (patch)
tree45ac84215485f09ebedce319121ed5f719b30493 /test/acceptor_SUITE.erl
parentcaeadc82615e9e5ce0c2d92f882cad7b9cb7322d (diff)
downloadranch-5ada450fe10a5fc51b7f3f0900571a10547635a1.tar.gz
ranch-5ada450fe10a5fc51b7f3f0900571a10547635a1.tar.bz2
ranch-5ada450fe10a5fc51b7f3f0900571a10547635a1.zip
Introduce Transport:handshake/1,2
This commit deprecates Transport:accept_ack/1 in favor of a new forward-compatible function. Transport:handshake/1,2 will use ssl:handshake/2,3 from Ranch 2.0 onward.
Diffstat (limited to 'test/acceptor_SUITE.erl')
-rw-r--r--test/acceptor_SUITE.erl29
1 files changed, 29 insertions, 0 deletions
diff --git a/test/acceptor_SUITE.erl b/test/acceptor_SUITE.erl
index f1d707d..0be5d40 100644
--- a/test/acceptor_SUITE.erl
+++ b/test/acceptor_SUITE.erl
@@ -32,6 +32,7 @@ groups() ->
tcp_active_echo,
tcp_echo,
tcp_graceful,
+ tcp_accept_ack,
tcp_inherit_options,
tcp_max_connections,
tcp_max_connections_and_beyond,
@@ -50,6 +51,7 @@ groups() ->
ssl_active_echo,
ssl_echo,
ssl_graceful,
+ ssl_accept_ack,
ssl_sni_echo,
ssl_sni_fail,
ssl_getopts_capability,
@@ -489,6 +491,20 @@ ssl_graceful(_) ->
{'EXIT', _} = begin catch ranch:get_port(Name) end,
ok.
+ssl_accept_ack(_) ->
+ doc("Ensure accept_ack works with SSL transport."),
+ Name = name(),
+ Opts = ct_helper:get_certs_from_ets(),
+ {ok, _} = ranch:start_listener(Name, ranch_ssl, Opts, accept_ack_protocol, []),
+ Port = ranch:get_port(Name),
+ {ok, Socket} = ssl:connect("localhost", Port, [binary, {active, false}, {packet, raw}]),
+ ok = ssl:send(Socket, <<"SSL transport accept_ack is working!">>),
+ {ok, <<"SSL transport accept_ack is working!">>} = ssl:recv(Socket, 36, 1000),
+ ok = ranch:stop_listener(Name),
+ {error, closed} = ssl:recv(Socket, 0, 1000),
+ {'EXIT', _} = begin catch ranch:get_port(Name) end,
+ ok.
+
ssl_getopts_capability(_) ->
doc("Ensure getopts/2 capability."),
Name=name(),
@@ -641,6 +657,19 @@ tcp_graceful(_) ->
{'EXIT', _} = begin catch ranch:get_port(Name) end,
ok.
+tcp_accept_ack(_) ->
+ doc("Ensure accept_ack works with TCP transport."),
+ Name = name(),
+ {ok, _} = ranch:start_listener(Name, ranch_tcp, [], accept_ack_protocol, []),
+ Port = ranch:get_port(Name),
+ {ok, Socket} = gen_tcp:connect("localhost", Port, [binary, {active, false}, {packet, raw}]),
+ ok = gen_tcp:send(Socket, <<"TCP transport accept_ack is working!">>),
+ {ok, <<"TCP transport accept_ack is working!">>} = gen_tcp:recv(Socket, 36, 1000),
+ ok = ranch:stop_listener(Name),
+ {error, closed} = gen_tcp:recv(Socket, 0, 1000),
+ {'EXIT', _} = begin catch ranch:get_port(Name) end,
+ ok.
+
tcp_inherit_options(_) ->
doc("Ensure TCP options are inherited in the protocol."),
Name = name(),