anchor.diff:  			$\r, $\n,
   			PatchBody],
   	{ok, SslSock} = ssl:connect({127,0,0,1}, RestPort,  [binary, {active, false}], infinity),
  -	ok = ssl:ssl_accept(SslSock),
   	ok = ssl:send(SslSock, list_to_binary(PatchReq)),
   	Timeout = 1500,
   	F2 = fun(_F, _Sock, {error, timeout}, Acc) ->
  
positive.code: 	{_, Secret} = lists:keyfind("secret", 1, Object),
  	RestPort = ?config(port, Config),
  	{ok, SslSock} = ssl:connect({127,0,0,1}, RestPort,  [binary, {active, false}], infinity),
  	ok = ssl:ssl_accept(SslSock),
  	NewContentType = "application/json-patch+json",
  	NewPort = 8745,
  	NewProtocol = "DIAMETER",
  
negative.code: 	{"multisession", Multi} = lists:keyfind("multisession", 1, Object),
  	RestPort = ?config(port, Config),
  	{ok, SslSock} = ssl:connect({127,0,0,1}, RestPort,  [binary, {active, false}], infinity),
  	NewContentType = "application/json-patch+json",
  	NewPassword = ocs:generate_password(),
  	JSON1 = {array, [{struct, [{op, "replace"}, {path, "/password"}, {value, NewPassword}]}]},
  