anchor.diff:     {_, Protocol} = lists:keyfind("protocol", 1, Object),
      {_, Secret} = lists:keyfind("secret", 1, Object).
   
  +get_client() ->
  +   [{userdata, [{doc,"get client in rest interface"}]}].
  +
  +get_client(Config) ->
  +   ContentType = "application/json",
  +   ID = "10.2.53.9",
  +	Disconnect = 1899,
  +	Protocol = "RADIUS",
  +   Secret = "ksc8c244npqc",
  +   JSON = {struct, [{"id", ID}, {"disconnectPort", Disconnect}, {"protocol", Protocol}, 
  +		{"secret", Secret}]},
  +   RequestBody = lists:flatten(mochijson:encode(JSON)),
  +   HostUrl = ?config(host_url, Config),
  +   Accept = {"accept", "application/json"},
  +	RestUser = ct:get_config(rest_user),
  +   RestPass = ct:get_config(rest_pass),
  +   Encodekey = base64:encode_to_string(string:concat(RestUser ++ ":", RestPass)),
  +   AuthKey = "Basic " ++ Encodekey,
  +   Authentication = {"authorization", AuthKey},
  +   Request1 = {HostUrl ++ "/ocs/v1/client/", [Accept, Authentication], ContentType, RequestBody},
  +   {ok, Result} = httpc:request(post, Request1, [], []),
  +   {{"HTTP/1.1", 201, _Created}, Headers, _} = Result,
  +   {_, URI1} = lists:keyfind("location", 1, Headers),
  +   {_, _, URI2, _, _} = mochiweb_util:urlsplit(URI1),
  +   Request2 = {HostUrl ++ URI2, [Accept, Authentication]},
  +   {ok, Result1} = httpc:request(get, Request2, [], []),
  +   {{"HTTP/1.1", 200, _OK}, Headers1, Body1} = Result1,
  +   {_, Accept} = lists:keyfind("content-type", 1, Headers1),
  +   ContentLength = integer_to_list(length(Body1)),
  +   {_, ContentLength} = lists:keyfind("content-length", 1, Headers1),
  +   {struct, Object} = mochijson:decode(Body1),
  +   {_, ID} = lists:keyfind("id", 1, Object),
  +   {_, URI12} = lists:keyfind("href", 1, Object),
  +	{_, Disconnect} = lists:keyfind("disconnectPort", 1, Object),
  +	{_, Protocol} = lists:keyfind("protocol", 1, Object),
  +   {_, Secret} = lists:keyfind("secret", 1, Object).
  +
   %%---------------------------------------------------------------------
   %%  Internal functions
   %%---------------------------------------------------------------------
  
positive.code: %%
  all() -> 
  	[add_subscriber, get_subscriber, retrieve_all_subscriber, delete_subscriber, 
  	add_client].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  
negative.code:    ContentType = "application/json",
     ID = "10.2.53.9",
  	Disconnect = 1899,
  	Protocol = "RADIUS",
     Secret = "ksc8c244npqc",
     JSON = {struct, [{"id", ID}, {"disconnectPort", Disconnect}, {"protocol", Protocol}, 
  		{"secret", Secret}]},
  