anchor.diff:  	{{"HTTP/1.1", 204, _NoContent}, Headers1, []} = Result1,
   	{_, "0"} = lists:keyfind("content-length", 1, Headers1).
   
  +get_usage() ->
  +	[{userdata, [{doc,"Get usage in rest interface"}]}].
  +
  +get_usage(Config) ->
  +	ContentType = "application/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},
  +	Request2 = {HostUrl ++ "/usageManagement/v1/usage", [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),
  +	{array, [{struct, Usage} | _] = _UsageList} = mochijson:decode(Body1),
  +	{_, ID} = lists:keyfind("id", 1, Usage),
  +	{_, HREF} = lists:keyfind("href", 1, Usage),
  +	{_, Date} = lists:keyfind("date", 1, Usage),
  +	{_, "PublicWLANAccessUsage"} = lists:keyfind("type", 1, Usage),
  +	{_, Description} = lists:keyfind("description", 1, Usage),
  +	{_, "recieved"} = lists:keyfind("status", 1, Usage),
  +	{struct, UsageSpecification} = lists:keyfind("usageSpecification", 1, Usage),
  +	{_, ID1} = lists:keyfind("id", 1, UsageSpecification),
  +	{_, HREF} = lists:keyfind("href", 1, UsageSpecification),
  +	{_, "PublicWLANAccessUsageSpec"} = lists:keyfind("name", 1, UsageSpecification),
  +	{array, UsageCharacteristic} = lists:keyfind("usageCharacteristic", 1, Usage),
  +	F = fun({struct, [{"name", "userName"},{"value", UserName}]}) when is_list(UserName)->
  +				true;
  +			({struct, [{"name", "acctSessionId"},{"value", AcctSessionId}]}) when is_list(AcctSessionId) ->
  +				true;
  +			({struct, [{"name", "userIpAddress"},{"value", UserIpAddress}]}) when is_list(UserIpAddress) ->
  +				true;
  +			({struct, [{"name", "callingStationId"},{"value", CallingStationId}]}) when is_list(CallingStationId) ->
  +				true;
  +			({struct, [{"name", "calledStationId"},{"value", CalledStationId}]}) when is_list(CalledStationId) ->
  +				true;
  +			({struct, [{"name", "nasIpAddress"},{"value", NasIpAddress}]}) when is_list(NasIpAddress) ->
  +				true;
  +			({struct, [{"name", "nasId"},{"value", NasId}]}) when is_list(NasId) ->
  +				true;
  +			({struct, [{"name", "sessionDuration"},{"value", SessionDuration}]}) when is_integer(SessionDuration) ->
  +				true;
  +			({struct, [{"name", "inputOctets"},{"value", InputOctets}]}) when is_integer(InputOctets) ->
  +				true;
  +			({struct, [{"name", "outputOctets"},{"value", OutputOctets}]}) when is_integer(OutputOctets) ->
  +				true;
  +			({struct, [{"name", "sessionTerminateCause"},{"value", SessionTerminateCause}]}) when is_integer(SessionTerminateCause) ->
  +				true
  +	end,
  +	true = lists:any(F, UsageCharacteristic).
  +
   %%---------------------------------------------------------------------
   %%  Internal functions
   %%---------------------------------------------------------------------
  
positive.code: 	{_, URI} = lists:keyfind("href", 1, Object),
  	{"password", Password} = lists:keyfind("password", 1, Object),
  	{_, {array, Attributes}} = lists:keyfind("attributes", 1, Object),
  	ExtraAttributes = Attributes -- SortedAttributes, 
  	SortedAttributes = lists:sort(Attributes -- ExtraAttributes),
  	{"balance", Balance} = lists:keyfind("balance", 1, Object),
  	{"enabled", Enable} = lists:keyfind("enabled", 1, Object).
  
negative.code: 	{_, URI1} = lists:keyfind("href", 1, Subscriber),
  	{"password", Password} = lists:keyfind("password", 1, Subscriber),
  	{_, {array, Attributes}} = lists:keyfind("attributes", 1, Subscriber),
  	ExtraAttributes = Attributes -- SortedAttributes,
  	SortedAttributes = lists:sort(Attributes -- ExtraAttributes),
  	{"balance", Balance} = lists:keyfind("balance", 1, Subscriber),
  	{"enabled", Enable} = lists:keyfind("enabled", 1, Subscriber).
  