anchor.diff:  	EapPacket  = #eap_packet{code = response, type = ?PWD,
   			identifier = EapId2, data = ocs_eap_codec:eap_pwd(EapPwd)},
   	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
  -	ok = access_request(Socket, Address, Port, NasId,
  +	ok = radius_access_request(Socket, Address, Port, NasId,
   			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg),
  -	EapId2 = receive_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
  +	EapId2 = receive_radius_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
   
   validate_pwd_id_token_radius() ->
   	[{userdata, [{doc, "Send invalid EAP-pwd-ID (bad token) using RADIUS"}]}].
  
positive.code: 	Secret = ct:get_config(radius_shared_secret),
  	ReqAuth1 = radius:authenticator(),
  	RadId1 = 5, EapId1 = 1,
  	ok = send_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  	EapId2 = EapId1 + 1,
  	{EapId2, Token, ServerID} = receive_id(Socket, Address,
  			Port, Secret, ReqAuth1, RadId1),
  	RadId2 = RadId1 + 1,
  	ReqAuth2 = radius:authenticator(),
  	send_id(Socket, Address, Port, Secret,
  			ReqAuth2, UserName, NasId, PeerId, MAC, Token, EapId2, RadId2),
  	EapId3 = EapId2 + 1,
  	{EapId3, _ElementS, _ScalarS} = receive_commit(Socket, Address,
  			Port, Secret, ReqAuth2, RadId2),
  	Prand = crypto:rand_uniform(1, ?R),
  	PWE = ocs_eap_pwd:compute_pwe(Token, PeerId, ServerID, PeerAuth),
  	{ScalarP, ElementP} = ocs_eap_pwd:compute_scalar(<<Prand:256>>, PWE),
  	RadId3 = RadId2 + 1,
  	ReqAuth3 = radius:authenticator(),
  	ok = send_commit(Socket, Address, Port, Secret, ReqAuth3,
  			UserName, NasId, MAC, ScalarP, ElementP, EapId3, RadId3),
  	EapId4 = EapId3 + 1,
  	{EapId4, _ConfirmS} = receive_confirm(Socket,
  			Address, Port, Secret, ReqAuth3, RadId3).
  	
  pwd_confirm_radius() ->
  
negative.code: 	Secret = ct:get_config(radius_shared_secret),
  	ReqAuth1 = radius:authenticator(),
  	RadId1 = 16, EapId1 = 1,
  	ok = send_radius_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, MAC, ReqAuth1, EapId1, RadId1),
  	EapId2 = EapId1 + 1,
  	{EapId2, _Token, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth1, RadId1),
  	RadId2 = RadId1 + 1,
  	ReqAuth2 = radius:authenticator(),
  