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),
   	{State, undefined, ParseState} = sys:replace_state(Pid, fun(S) -> S end),
   	state = element(1, State),
   	case element(1, ParseState) of
  
positive.code: 	{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),
  	Ref = make_ref(),
  	Pid ! {system, {self(), Ref}, get_state},
  	receive
  
negative.code: 		"Host: localhost\r\n"
  		"\r\n"),
  	timer:sleep(100),
  	SupPid = get_remote_pid_tcp(Socket),
  	[{_, Pid, _, _}] = supervisor:which_children(SupPid),
  	{Req, Env, long_polling_sys_h, undefined} = sys:replace_state(Pid, fun(S) -> S end),
  	#{pid := _, streamid := _} = Req,
  