anchor.diff:  	{ok, Result} = httpc:request(post, Request1, [], []),
   	{{"HTTP/1.1", 201, _Created}, Headers, _} = Result,
   	{_, URI1} = lists:keyfind("location", 1, Headers),
  -	{_, _, URI2, _, _} = mochiweb_util:urlsplit(URI1),
  +	{URI2, _} = httpd_util:split_path(URI1),
   	Request2 = {HostUrl ++ URI2, [Accept, Authentication], ContentType, []},
   	{ok, Result1} = httpc:request(delete, Request2, [], []),
   	{{"HTTP/1.1", 204, _NoContent}, Headers1, []} = Result1,
  
positive.code: 	{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,
  
negative.code: 	ContentLength = integer_to_list(length(ResponseBody)),
  	{_, ContentLength} = lists:keyfind("content-length", 1, Headers),
  	{_, URI} = lists:keyfind("location", 1, Headers),
  	{"/ocs/v1/client/" ++ ID, _} = httpd_util:split_path(URI),
  	{struct, Object} = mochijson:decode(ResponseBody),
  	{_, ID} = lists:keyfind("id", 1, Object),
  	{_, URI} = lists:keyfind("href", 1, Object),
  