anchor.diff:  		     {true,_} -> {false,0}
   		 end,
   
  -    case catch eldap:open([Host], 
  +    case catch eldap:open([Host],
   			  [{port,Port},{tcpopts,[{linger,TestLinger}]}|Opts]) of
   	{ok,H} ->
   	    case gen_tcp:accept(Sl,1000) of
  -		{ok,_} -> 
  +		{ok,_} ->
   		    case eldap:getopts(H, [{tcpopts,[linger]}]) of
   			{ok,[{tcpopts,[{linger,ActualLinger}]}]} ->
   			    case ActualLinger of
  -				TestLinger -> 
  +				TestLinger ->
   				    ok;
   				DefaultLinger ->
   				    ct:fail("eldap:getopts: 'linger' didn't change,"
  
positive.code: 				   scope = eldap:singleLevel()}),
      %% What we expect:
      CN_new = lists:sort([NewCN | CN_orig -- [OrigCN]]),
      
      %% Change back:
      ok = eldap:modify_dn(H, NewDN, OriginalRDN, true, ""),
  
  
negative.code:       fun(H) ->
  	      eldap:add(H, "cn=Foo Bar,dc=host,dc=ericsson,dc=se",
  			[{"objectclass", ["person"]},
  			 {"cn", ["Foo Bar"]},
  			 {"sn", ["Bar"]},
  			 {"telephoneNumber", ["555-1232", "555-5432"]}])
        end, Config).
  
  