anchor.diff:  	{ok, Handshake} = gen_tcp:recv(Socket, 0, 5000),
   	{ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []),
   	timer:sleep(100),
  -	Pid = do_get_remote_pid_tcp(Socket),
  +	Pid = get_remote_pid_tcp(Socket),
   	{error, not_found} = supervisor:delete_child(Pid, cowboy_websocket),
   	ok.
   
  
positive.code: 	{ok, Socket} = gen_tcp:connect("localhost", config(clear_port, Config),
  		[{active, false}]),
  	timer:sleep(100),
  	Pid = do_get_remote_pid_tcp(Socket),
  	%% When no children exist.
  	{error, not_found} = supervisor:get_childspec(Pid, cowboy_http),
  	%% When a child exists.
  
negative.code: 	{ok, Handshake} = gen_tcp:recv(Socket, 0, 5000),
  	{ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []),
  	timer:sleep(100),
  	Pid = get_remote_pid_tcp(Socket),
  	{State, undefined, ParseState} = sys:replace_state(Pid, fun(S) -> S end),
  	state = element(1, State),
  	case element(1, ParseState) of
  