anchor.diff:  init_per_suite(Config) ->
   	ok = ocs_test_lib:initialize_db(),
      ok = ocs_test_lib:load(ocs),
  +	TempNrfPath = "http://127.0.0.1",
  +	ok = application:set_env(ocs, nrf_uri, TempNrfPath),
  +	{ok, Services} = application:get_env(inets, services),
  +	Fport = fun FPort([{httpd, L} | T]) ->
  +				case lists:keyfind(server_name, 1, L) of
  +					{_, "rest"} ->
  +						H1 = lists:keyfind(bind_address, 1, L),
  +						P1 = lists:keyfind(port, 1, L),
  +						{H1, P1};
  +					_ ->
  +						FPort(T)
  +				end;
  +			FPort([_ | T]) ->
  +				FPort(T)
  +	end,
  +	RestUser = ct:get_config({rest, user}),
  +	RestPass = ct:get_config({rest, password}),
  +	{Host, Port} = case Fport(Services) of
  +		{{_, H2}, {_, P2}} when H2 == "localhost"; H2 == {127,0,0,1} ->
  +			{ok, _} = ocs:add_user(RestUser, RestPass, "en"),
  +			{"localhost", P2};
  +		{{_, H2}, {_, P2}} ->
  +			{ok, _} = ocs:add_user(RestUser, RestPass, "en"),
  +			case H2 of
  +				H2 when is_tuple(H2) ->
  +					{inet:ntoa(H2), P2};
  +				H2 when is_list(H2) ->
  +					{H2, P2}
  +			end;
  +		{false, {_, P2}} ->
  +			{ok, _} = ocs:add_user(RestUser, RestPass, "en"),
  +			{"localhost", P2}
  +	end,
  +	Config1 = [{port, Port} | Config],
  +	HostUrl = "https://" ++ Host ++ ":" ++ integer_to_list(Port),
  +	init_per_suite1([{host_url, HostUrl} | Config1]).
  +%% @hidden
  +init_per_suite1(Config) ->
   	DiameterAddress = ct:get_config({diameter, address}, {127,0,0,1}),
   	DiameterAuthPort = ct:get_config({diameter, auth_port}, rand:uniform(64511) + 1024),
   	DiameterAcctPort = ct:get_config({diameter, acct_port}, rand:uniform(64511) + 1024),
  
positive.code: 					'3GPP-SGSN-MCC-MNC' = [<<"001001">>]}]},
  	CC_CCR = #'3gpp_ro_CCR'{'Session-Id' = SId,
  		'Auth-Application-Id' = ?RO_APPLICATION_ID,
  		'Service-Context-Id' = "32251@3gpp.org" ,
  		'User-Name' = [MSISDN],
  		'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_UPDATE_REQUEST',
  		'CC-Request-Number' = RequestNum,
  
negative.code: 	ok = application:set_env(ocs, min_reserve_octets, 1000000),
  	ok = application:set_env(ocs, min_reserve_seconds, 60),
  	ok = application:set_env(ocs, min_reserve_messages, 1),
  	Realm = ct:get_config({diameter, realm}, "mnc001.mcc001.3gppnetwork.org"),
  	Host = ct:get_config({diameter, host}, atom_to_list(?MODULE) ++ "." ++ Realm),
     Config1 = [{diameter_host, Host}, {realm, Realm},
           {diameter_acct_address, DiameterAddress} | Config],
  	ok = ocs_test_lib:start(),
     ok = diameter:start_service(?MODULE, client_acct_service_opts(Config1)),
     true = diameter:subscribe(?MODULE),
     {ok, _Ref2} = connect(?MODULE, DiameterAddress, DiameterAcctPort, diameter_tcp),
     receive
        #diameter_event{service = ?MODULE, info = Info}
              when element(1, Info) == up ->
  			init_per_suite2(Config1);
        _Other ->
           {skip, diameter_client_acct_service_not_started}
     end.
  init_per_suite2(Config) ->
  	case inets:start(httpd,
  			[{port, 0},
  			{server_name, atom_to_list(?MODULE)},
  