anchor.diff:  	timer:sleep(100),
   	Parent = get_remote_pid_tcp(Socket),
   	[{_, Pid, _, _}] = supervisor:which_children(Parent),
  -	Pid ! {'EXIT', self(), shutdown},
  +	Pid ! {'EXIT', self(), {shutdown, ?MODULE}},
   	%% The process stays alive.
   	{ok, "HTTP/1.1 299 "} = gen_tcp:recv(Socket, 13, 1000),
   	true = is_process_alive(Pid),
  
positive.code: 		{"/ws", ws_echo, []}
  	]}]).
  
  %% proc_lib.
  
  proc_lib_initial_call_clear(Config) ->
  
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.
  