anchor.diff:  			{radius_auth_port, RadiusAuthPort},
   			{radius_acct_address, RadiusAddress},
   			{radius_acct_port, RadiusAcctPort},
  -			{diameter_acct_address, DiameterAddress} | Config],
  +			{diameter_address, DiameterAddress},
  +			{diameter_acct_port, DiameterAcctPort},
  +			{diameter_auth_port, DiameterAuthPort} | Config],
   	ok = diameter:start_service(?MODULE, client_acct_service_opts(Config1)),
   	true = diameter:subscribe(?MODULE),
  +	{ok, _} = ocs:add_client(DiameterAddress, undefined, diameter, undefined, true),
   	{ok, _Ref2} = connect(?MODULE, DiameterAddress, DiameterAcctPort, diameter_tcp),
   	receive
   		#diameter_event{service = ?MODULE, info = Info}
  
positive.code: 		TestCase == diameter_scur_price_descrimination_by_rg;
  		TestCase == diameter_scur_roaming_voice_ims ->
  	Address = ?config(diameter_acct_address, Config),
  	ok = ocs:delete_client(Address).
  
  -spec sequences() -> Sequences :: [{SeqName :: atom(), Testcases :: [atom()]}].
  %% Group test cases into a test sequence.
  
negative.code: 			{application, [{alias, cc_app_test},
  					{dictionary, diameter_gen_3gpp_ro_application},
  					{module, diameter_test_client_cb}]}].
  %% @hidden
  client_acct_service_opts(Config, HostIp) ->
  	[{'Origin-Host', ?config(host, Config)},
  			{'Origin-Realm', ?config(realm, Config)},
  			{'Host-IP-Address', [HostIp]},
  			{'Vendor-Id', ?IANA_PEN_SigScale},
  			{'Supported-Vendor-Id', [?IANA_PEN_3GPP]},
  			{'Product-Name', "SigScale Test Client (Acct)"},
  			{'Auth-Application-Id', [?RO_APPLICATION_ID]},
  			{string_decode, false},
  			{restrict_connections, false},
  			{application, [{alias, base_app_test},
  					{dictionary, diameter_gen_base_rfc6733},
  					{module, diameter_test_client_cb}]},
  			{application, [{alias, cc_app_test},
  					{dictionary, diameter_gen_3gpp_ro_application},
  					{module, diameter_test_client_cb}]}].
  
  %% @hidden
  transport_opts(Address, Port, Trans) when is_atom(Trans) ->
  	transport_opts1({Trans, Address, Address, Port}).
  %% @hidden
  transport_opts(RemAddress, Port, Ip, Trans) when is_atom(Trans) ->
  	transport_opts1({Trans, Ip, RemAddress, Port}).
  
  %% @hidden
  transport_opts1({Trans, LocalAddr, RemAddr, RemPort}) ->
  