anchor.diff:  	{ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []),
   	timer:sleep(100),
   	Pid = get_remote_pid_tcp(Socket),
  -	ok = sys:terminate(Pid, {shutdown, test}),
  +	ok = sys:terminate(Pid, {shutdown, ?MODULE}),
   	{error, closed} = gen_tcp:recv(Socket, 0, 500),
   	ok.
   
  
positive.code: 	{ok, {http_response, {1, 1}, 101, _}, _} = erlang:decode_packet(http, Handshake, []),
  	timer:sleep(100),
  	Pid = get_remote_pid_tcp(Socket),
  	Pid ! {'EXIT', self(), shutdown},
  	%% The process stays alive.
  	{error, timeout} = gen_tcp:recv(Socket, 0, 1000),
  	true = is_process_alive(Pid),
  
negative.code: 	timer:sleep(100),
  	Pid = get_remote_pid_tcp(Socket),
  	Parent = get_parent_pid(Pid),
  	Pid ! {'EXIT', Parent, {shutdown, ?MODULE}},
  	{error, closed} = gen_tcp:recv(Socket, 0, 1000),
  	true = is_process_down(Pid),
  	ok.
  