anchor.diff:  	ConnChildren = lists:flatten(
   		[supervisor:which_children(ConnsSup) || ConnsSup <- ConnsSups]),
   	[ConnPid || {_, ConnPid, _, _} <- ConnChildren].
  +
  +do_connect_and_ping(Port) ->
  +	{ok, Conn} = gen_tcp:connect("localhost", Port, [binary, {active, false}, {packet, raw}]),
  +	ok = gen_tcp:send(Conn, <<"PING">>),
  +	{ok, <<"PING">>} = gen_tcp:recv(Conn, 4, 1000),
  +	ok.
  
positive.code: 		ranch_tcp, #{shutdown => 500},
  		echo_protocol, []),
  	Port = ranch:get_port(Name),
  	{ok, _} = gen_tcp:connect("localhost", Port, []),
  	receive after 100 -> ok end,
  	ListenerSupChildren = supervisor:which_children(ListenerSup),
  	{_, ConnsSupSup, _, _} = lists:keyfind(ranch_conns_sup_sup, 1, ListenerSupChildren),
  	[Pid] = do_get_conn_pids(ConnsSupSup),
  
negative.code: 		ranch_tcp, #{shutdown => brutal_kill},
  		echo_protocol, []),
  	Port = ranch:get_port(Name),
  	ok = do_connect_and_ping(Port),
  	ListenerSupChildren = supervisor:which_children(ListenerSup),
  	{_, ConnsSupSup, _, _} = lists:keyfind(ranch_conns_sup_sup, 1, ListenerSupChildren),
  	[Pid] = do_get_conn_pids(ConnsSupSup),
  