anchor.diff:  %%
   init_per_suite(Config) ->
   	ok = ocs_test_lib:initialize_db(),
  +	RadiusAuthPort = rand:uniform(64511) + 1024,
  +	RadiusAcctPort = rand:uniform(64511) + 1024,
  +	RadiusAppVar = [{auth, [{{127,0,0,1}, RadiusAuthPort, []}]},
  +			{acct, [{{127,0,0,1}, RadiusAcctPort, []}]}],
  +	ok = application:set_env(ocs, radius, RadiusAppVar, [{persistent, true}]),
  +	DiameterAuthPort = rand:uniform(64511) + 1024,
  +	DiameterAcctPort = rand:uniform(64511) + 1024,
  +	DiameterAppVar = [{auth, [{{127,0,0,1}, DiameterAuthPort, []}]},
  +		{acct, [{{127,0,0,1}, DiameterAcctPort, []}]}],
  +	ok = application:set_env(ocs, diameter, DiameterAppVar, [{persistent, true}]),
   	ok = ocs_test_lib:start(),
   	{ok, ProdID} = ocs_test_lib:add_offer(),
   	{ok, Radius} = application:get_env(ocs, radius),
  
positive.code: 		#diameter_event{service = ?MODULE, info = Info}
  				when element(1, Info) == up ->
  			Config1;
  		_ ->
  			{skip, diameter_client_acct_service_not_started}
  	end.
  
  
negative.code: 	_BId = add_bucket(ProdRef, B1),
  	Secret = ct:get_config(radius_shared_secret),
  	ReqAuth = radius:authenticator(),
  	HiddenPassword = radius_attributes:hide(Secret, ReqAuth, Password),
  	Socket = ?config(radius_nas_socket, Config),
  	authenticate_subscriber(Socket, AuthAddress, AuthPort, PeerID,
  			HiddenPassword, Secret, NasID, ReqAuth, RadID1, AcctSessionID),
  