anchor.diff:  			{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}) ->
  
positive.code: 		TestCase == diameter_scur_roaming_voice_ims ->
  	Address = ?config(diameter_acct_address, Config),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  	Config.
  
  -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  
negative.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),
  	Config;
  end_per_testcase(TestCase, Config)
  		when TestCase == client_authorized ->
  	ServiceName = atom_to_list(?MODULE) ++ ":" ++ TestCase,
  	Address = ct:get_config({diameter, peer_address}, {127,0,0,21}),
  	ok = ocs:delete_client(Address),
  	ok = diameter:stop_service(ServiceName),
  	ok = diameter:remove_transport(ServiceName, true),
  	Config;
  end_per_testcase(_TestCase, Config) ->
  	Config.
  
  -spec sequences() -> Sequences :: [{SeqName :: atom(), Testcases :: [atom()]}].
  %% Group test cases into a test sequence.
  