anchor.diff:  	receive
   		#diameter_event{service = ServiceName, info = Info}
   				when element(1, Info) == up ->
  -			client_authorized_acct1(Config);
  +			client_authorized(ServiceName, Config);
   		 _Other ->
   			{skip, diameter_client_acct_service_not_started}
   	end.
  -client_authorized_acct1(_Config) ->
  +client_authorized(ServiceName, _Config) ->
   	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100000)),
   	OfferId = add_offer([P1], 4),
   	ProdRef = add_product(OfferId),
  
positive.code: 	_BId = add_bucket(ProdRef, B1),
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	Answer = diameter_scur_cud_start(SId, Subscriber, 0),
  	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS'} = Answer.
  
  client_not_authorized_acct() ->
  	[{userdata, [{doc, "Deny Service To An Unknown Diameter Peer"}]}].
  
  client_not_authorized_acct(Config) ->
  	ServiceName = atom_to_list(?MODULE) ++ ":" ++ "client_not_authorized_acct",
  	DiameterAcctPort = ?config(diameter_acct_port, Config),
  	DiameterAcctAddress = ?config(diameter_acct_address, Config),
  
negative.code: 	ok = ocs:delete_client(Address),
  	Config;
  end_per_testcase(TestCase, Config)
  		when TestCase == client_authorized;
  		TestCase == client_not_authorized ->
  	ServiceName = atom_to_list(?MODULE) ++ ":" ++ TestCase,
  	Address = ct:get_config({diameter, peer_address}, {127,0,0,21}),
  	ok = ocs:delete_client(Address),
  