anchor.diff:  client_timeout(Fun, Config) ->
       Host = proplists:get_value(listen_host, Config),
       Port = proplists:get_value(listen_port, Config),
  -    Opts = proplists:get_value(connect_opts, Config),
  +    Opts = proplists:get_value(tcp_connect_opts, Config),
       T = 1000,
       case eldap:open([Host], [{timeout,T},{port,Port}|Opts]) of
   	{ok,H} -> 
  
positive.code: 	    end
      end;
  init_per_group(v4_connections, Config) ->
      [{listen_opts,  [{reuseaddr, true}]},
       {listen_host,  "localhost"},
       {connect_opts, []}
       |  Config];
  init_per_group(v6_connections, Config) ->
      {ok, Hostname} = inet:gethostname(),
      case lists:member(list_to_atom(Hostname), ct:get_config(ipv6_hosts,[])) of
  	true -> 
  	    [{listen_opts,  [inet6]},
  	     {listen_host,  "::"},
  	     {connect_opts, [{tcpopts,[inet6]}]}
  	     |  Config];
  	false -> 
  	    {skip, io_lib:format("~p is not an ipv6_host",[Hostname])}
  
negative.code: 	    Listener = spawn_link(
  			 fun() ->
  				 case ssl:listen(SSL_Port, [{certfile, CertFile},
  							    {keyfile, KeyFile}
  							    | ?config(tcp_listen_opts,Config)
  							   ]) of
  				     {ok,SSL_LSock} ->
  					 Parent ! {ok,self()},
  					 (fun L() ->
  