anchor.diff:  	ReqPacket2 = radius:codec(Request2),
   	gen_udp:send(Socket, Address, Port, ReqPacket2).
   
  +accounting_request(StatusType, Socket, Address, Port,
  +		UserName, Secret, NasID, AcctSessionID, RadID, RadAttributes)
  +		when is_binary(UserName) ->
  +	accounting_request(StatusType, Socket, Address, Port,
  +			binary_to_list(UserName), Secret, NasID, AcctSessionID,
  +			RadID, RadAttributes);
   accounting_request(StatusType, Socket, Address, Port,
   		UserName, Secret, NasID, AcctSessionID, RadID, RadAttributes) ->
   	A1 = session_attributes(UserName, NasID, AcctSessionID, RadAttributes),
  
positive.code: 	[{AuthAddress, AuthPort, _} | _] = AuthInstance,
  	[{AcctAddress, AcctPort, _} | _] = AcctInstance,
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, binary]),
  	PeerID = ocs:generate_identity(),
  	Secret = ct:get_config(radius_shared_secret),
  	Password = ocs:generate_password(),
  	Buckets = [#bucket{units = cents, remain_amount = 3000}],
  	ProdID = ?config(product_id, Config),
     {ok, _} = ocs:add_service(PeerID, Password, ProdID, [], Buckets, []),
  	ReqAuth = radius:authenticator(),
     HiddenPassword = radius_attributes:hide(Secret, ReqAuth, Password),
  	authenticate_subscriber(Socket, AuthAddress, AuthPort, PeerID,
  
negative.code: %%
  end_per_testcase(TestCase, Config) when
  		TestCase == diameter_accounting; TestCase == diameter_disconnect_session ->
  	Client = ?config(diameter_auth_client, Config),
  	ok = ocs:delete_client(Client);
  end_per_testcase(_TestCase, _Config) ->
  	ocs:delete_client({127, 0, 0, 1}).
  
  