anchor.diff:  -define(PathResourceHub, "/resourceInventory/v1/hub/").
   -define(PathUsageHub, "/usageManagement/v1/hub/").
   -define(PathRole, "/partyRoleManagement/v4/").
  +
  +%% support deprecated_time_unit()
  +-define(MILLISECOND, milli_seconds).
   
   %%---------------------------------------------------------------------
   %%  Test server callback functions
  
positive.code: 	post_tariff_resource, delete_tariff_resource, update_tariff_resource,
  	post_policy_resource, query_policy_resource, arbitrary_char_service,
  	delete_policy_table, oauth_authentication,
  	post_hub_role, delete_hub_role, get_role_hubs, get_role_hub].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  
negative.code: 	end,
  	lists:any(F, Chars).
  
  post_role() ->
  	[{userdata, [{doc, "POST to Role collection"}]}].
  
  post_role(Config) ->
  	HostUrl = ?config(host_url, Config),
  	CollectionUrl = HostUrl ++ ?PathRole ++ "partyRole",
  	RequestBody = lists:flatten(mochijson:encode(party_role("Global_Pirates"))),
  	ContentType = "application/json",
  	Accept = {"accept", "application/json"},
  	Request = {CollectionUrl, [Accept, auth_header()], ContentType, RequestBody},
  	{ok, Result} = httpc:request(post, Request, [], []),
  	{{"HTTP/1.1", 201, _Created}, Headers, ResponseBody} = Result,
  	{_, "application/json"} = lists:keyfind("content-type", 1, Headers),
  	ContentLength = integer_to_list(length(ResponseBody)),
  	{_, ContentLength} = lists:keyfind("content-length", 1, Headers),
  	PartyRole = mochijson:decode(ResponseBody),
  	true = lists:all(fun is_role/1, [PartyRole]).
  
  post_hub_role() ->
  	[{userdata, [{doc, "Register hub listener for role"}]}].
  
  