anchor.diff:  	Response = #radius{code = ?AccessChallenge, id = RadiusID,
   			authenticator = ResponseAuthenticator, attributes = AttributeData},
   	ResponsePacket = radius:codec(Response),
  -	radius:response(RadiusFsm, {response, ResponsePacket}).
  -
  +	radius:response(RadiusFsm, {response, ResponsePacket}),
  +	ok.
  +
  
positive.code: 			ResponsePacket = radius:codec(Response),
  	radius:response(RadiusFsm, {response, ResponsePacket}).
  
  %% @doc Sends an RADIUS-Access/Challenge packet to peer
  %% @hidden
  send_radius_chalenge(NewEAPID, EAPData, RadiusID, RequestAuthenticator, Secret, RadiusFsm) ->
  	Packet = #eap_packet{code = ?Request, identifier = NewEAPID, data = EAPData},
  	EAPPacketData = ocs_eap_codec:eap_packet(Packet),
  	AttributeList0 = radius_attributes:new(),
  
negative.code: 			ok ->
  				Ks = ocs_eap_pwd:compute_ks(<<S_rand:256>>, PWE, ScalarP, ElementP),
  				Input = [<<Ks/binary, ElementS/binary, ScalarS/binary, ElementP/binary,
  						ScalarP/binary, 0, <<GrpDec>>, <<RandomFunc>>, <<PRF>> >>],
  				ConfirmS = ocs_eap_pwd:h(Input),
  				ConfirmBody = #eap_pwd_confirm{confirm = ConfirmS},
  				ConfirmBodyData = ocs_eap_codec:eap_pwd_confirm(ConfirmBody),
  				ConfirmHeader = #eap_pwd{type = ?PWD, length = false,
  						more = false, pwd_exch = confirm, data = ConfirmBodyData},
  				ConfirmEAPData = ocs_eap_codec:eap_pwd(ConfirmHeader),
  				NewEAPID = EapID + 1,
  				ConfirmPacket = #eap_packet{code = ?Request, identifier = NewEAPID, data = ConfirmEAPData},
  				ConfirmEAPPacketData = ocs_eap_codec:eap_packet(ConfirmPacket),
  				AttributeList0 = radius_attributes:new(),
  				AttributeList1 = radius_attributes:store(?EAPMessage,
  						ConfirmEAPPacketData, AttributeList0),
  				AttributeList2 = radius_attributes:store(?MessageAuthenticator,
  						<<0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>, AttributeList1),
  				AttrList2bin = radius_attributes:codec(AttributeList2),
  