anchor.diff:  	ok = send_radius_identity(Socket, Address, Port, NasId,
   			PeerId1, Secret, ReqAuth, EapId, RadId),
   	NextEapId = EapId + 1,
  -	{NextEapId, _Token, _ServerID} = receive_radius_id(Socket, Address,
  +	{NextEapId, _ServerID} = receive_radius_id(Socket, Address,
   			Port, Secret, ReqAuth, RadId).
   
   eap_identity_diameter() ->
  
positive.code: 	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  	[{diameter_client, Address} | Config];
  init_per_testcase(_TestCase, Config) ->
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, {ip, RadIP}, binary]),
  
negative.code: receive_radius_id(Socket, Address, Port, Secret, ReqAuth, RadId) ->
  	EapMsg = radius_access_challenge(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	#eap_packet{code = request, type = ?AKAprime, identifier = EapId,
  			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  	#eap_aka_identity{permanent_id_req = false,
  			any_id_req = false,fullauth_id_req = true,
  			identity = ServerId} = ocs_eap_codec:eap_aka(EapData),
  	{EapId, ServerId}.
  
  %% @hidden
  send_radius_identity(Socket, Address, Port, NasId,
  