anchor.diff:  	#radius{code = Code, id = RadID} = radius:codec(RespPacket).
   
   access_request(Socket, Address, Port, UserName, Secret,
  +		NasID, Auth, RadID, AcctSessionID, RadAttributes)
  +		when is_binary(UserName) ->
  +	access_request(Socket, Address, Port, binary_to_list(UserName),
  +			Secret, NasID, Auth, RadID, AcctSessionID, RadAttributes);
  +access_request(Socket, Address, Port, UserName, Secret,
   		NasID, Auth, RadID, AcctSessionID, RadAttributes) ->
   	A1 = session_attributes(UserName, NasID, AcctSessionID, RadAttributes),
   	A2 = radius_attributes:add(?MessageAuthenticator, <<0:128>>, A1),
  
positive.code: 	[{userdata, [{doc, "Start multiple RADIUS sessions for a subscriber when
  			multiple RADIUS sessions are allowed."}]}].
  
  radius_multisession(Config) ->
  	RadID1 = 11,
  	NasID1 = "axe1@ap-1.org",
  	AcctSessionID1 = ocs:generate_identity(),
  	ProdID = ?config(product_id, Config),
  	{ok, [{auth, AuthInstance}, {acct, AcctInstance}]} = application:get_env(ocs, radius),
  	[{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}],
  	{ok, _} = ocs:add_service(PeerID, Password, ProdID, [], Buckets, [], true, true),
  	ReqAuth = radius:authenticator(),
  	HiddenPassword = radius_attributes:hide(Secret, ReqAuth, Password),
  	%% Authenticate session 1
  
negative.code: -define(NAS_APPLICATION_ID, 1).
  -define(RO_APPLICATION_ID, 4).
  -define(EPOCH_OFFSET, 2208988800).
  %% support deprecated_time_unit()
  -define(MILLISECOND, milli_seconds).
  %-define(MILLISECOND, millisecond).
  
  %%---------------------------------------------------------------------
  %%  Test server callback functions
  