aboutsummaryrefslogblamecommitdiffstats
path: root/test/check_tcp_options.erl
blob: ecafef7d8cf187ef976be74a2f3b55edd4bd8b7c (plain) (tree)
1
2
3
4
5
6
7
8
9
10


                           
                        

                  

                                                                    

                  



                                                                                     

                                     
-module(check_tcp_options).
-behaviour(ranch_protocol).

-export([start_link/3]).
-export([init/3]).

start_link(Ref, _, [{pid, TestPid}|TcpOptions]) ->
	Pid = spawn_link(?MODULE, init, [Ref, TestPid, TcpOptions]),
	{ok, Pid}.

init(Ref, Pid, TcpOptions) ->
	{ok, Socket} = ranch:handshake(Ref),
	{ok, RealTcpOptions} = inet:getopts(Socket, [Key || {Key, _} <- TcpOptions]),
	true = TcpOptions =:= RealTcpOptions,
	Pid ! checked,
	receive after 2500 -> ok end.