anchor.diff:  
   %% @hidden
   send_radius_identity(Socket, Address, Port, NasId,
  -		PeerId, Secret, Auth, EapId, RadId) ->
  +		PeerId, Secret, StationID, Auth, EapId, RadId) ->
   	EapPacket  = #eap_packet{code = response, type = ?Identity,
   			identifier = EapId, data = PeerId},
   	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
   	radius_access_request(Socket, Address, Port, NasId,
  -			PeerId, Secret, Auth, RadId, EapMsg).
  +			PeerId, Secret, StationID, Auth, RadId, EapMsg).
   
   %% @hidden
   send_diameter_identity(?EAP_APPLICATION_ID, SId, EapId, PeerId) ->
  
positive.code: -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initialization before each test case.
  %%
  init_per_testcase(aka_prf, Config) ->
  	Config;
  init_per_testcase(identity_radius, Config) ->
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
negative.code: 
  %% @hidden
  radius_access_request(Socket, Address, Port, NasId,
  		UserName, Secret, StationID, Auth, RadId, EapMsg)
  		when is_binary(UserName) ->
  	radius_access_request(Socket, Address, Port, NasId,
  			binary_to_list(UserName), Secret, StationID, Auth, RadId, EapMsg);
  radius_access_request(Socket, Address, Port, NasId,
  		UserName, Secret, StationID, Auth, RadId, EapMsg) ->
  	A0 = radius_attributes:new(),
  	A1 = radius_attributes:add(?UserName, UserName, A0),
  	A2 = radius_attributes:add(?NasPortType, 19, A1),
  	A3 = radius_attributes:add(?NasIdentifier, NasId, A2),
  	A4 = radius_attributes:add(?CallingStationId, StationID, A3),
  	A5 = radius_attributes:add(?CalledStationId,
  			"FE-EF-DE-ED-CE-ED:TestSSID", A4),
  	A6 = radius_attributes:add(?EAPMessage, EapMsg, A5),
  	A7 = radius_attributes:add(?MessageAuthenticator, <<0:128>>, A6),
  	Request1 = #radius{code = ?AccessRequest, id = RadId,
  