anchor.diff:  			NasId, MAC, ConfirmP, EapId4, RadId4),
   	EapId4 = receive_radius_success(Socket, Address, Port, Secret, ReqAuth4, RadId4).
   
  -message_authentication_radius() ->
  +message_authentication_over_radius() ->
   	[{userdata, [{doc, "Send corrupt Message-Authenticator using RADIUS"}]}].
   
  -message_authentication_radius(Config) ->
  +message_authentication_over_radius(Config) ->
   	PeerId = <<"56789012">>,
   	MAC = "EE-FF-AA-BB-CC-DD",
   	PeerAuth = list_to_binary(ocs:generate_password()),
  
positive.code: 	#eap_pwd_commit{element = Element, scalar = Scalar} = ocs_eap_codec:eap_pwd_commit(EapPwdData1),
  	ok = ocs:delete_subscriber(PeerId).
  
  pwd_commit_radius() ->
  	[{userdata, [{doc, "Send an EAP-pwd-Commit/Response using RADIUS to peer"}]}].
  
  pwd_commit_radius(Config) ->
  	PeerId = <<"34567890">>,
  	MAC = "CC-DD-EE-FF-AA-BB",
  	PeerAuth = list_to_binary(ocs:generate_password()),
  
negative.code: 	{EapId4, _ConfirmS} = receive_radius_confirm(Socket,
  			Address, Port, Secret, ReqAuth3, RadId3).
  	
  pwd_confirm_over_radius() ->
  	[{userdata, [{doc, "Send an EAP-pwd-Confirm/Response using RADIUS to peer"}]}].
  
  pwd_confirm_over_radius(Config) ->
  	PeerId = <<"45678901">>,
  	MAC = "DD-EE-FF-AA-BB-CC",
  	PeerAuth = list_to_binary(ocs:generate_password()),
  