anchor.diff:  	CommitReqPacket2 = radius:codec(CommitResponse2),
   	ok = gen_udp:send(Socket, AuthAddress, AuthPort, CommitReqPacket2),
   	{ok, {_Address, _Port, ConfirmPacket}} = gen_udp:recv(Socket, 0),
  -	#radius{code = ?AccessChallenge, id = Id, authenticator = _NewAuth,
  +	#radius{code = ?AccessChallenge, id = 3, authenticator = _NewAuth,
   		attributes = ConfirmReqAttributes} = radius:codec(ConfirmPacket),
   	ConfirmReqAtt = radius_attributes:codec(ConfirmReqAttributes),
   	{ok, ConfirmEAPPacket} = radius_attributes:find(?EAPMessage, ConfirmReqAtt),
  
positive.code: 
  invalid_id_response_eap_pwd(Config) ->
  	Id = 6,
  	PeerID = <<"peer6@sigscale">>,
  	{ok, AuthAddress} = application:get_env(ocs, radius_auth_addr),
  	{ok, AuthPort} = application:get_env(ocs, radius_auth_port),
  	Socket = ?config(socket, Config),
  
negative.code: 		ocs_eap_codec:eap_packet(ConfirmEAPPacket),
  	#eap_pwd{length = false, more = false, pwd_exch = confirm,
  		data = Confirm_S} = ocs_eap_codec:eap_pwd(ConfirmData),
  	Ciphersuite = <<19:16, 16#1, 16#1>>,
  	Kp = ocs_eap_pwd:compute_ks(<<P_Rand:256>>, PWE, Scalar_S, Element_S),
  	Input = [Kp, Element_S, Scalar_S, Element_P, Scalar_P, Ciphersuite],
  	Confirm_P = ocs_eap_pwd:h(Input),
  	ConfirmRespHeader = #eap_pwd{length = false, more = false, pwd_exch = confirm,
  		data = Confirm_P},
  	ConfirmEAPData = ocs_eap_codec:eap_pwd(ConfirmRespHeader),
  	ConfirmRespPacket = #eap_packet{code = response, type = ?PWD, identifier = EAPId3,
  		data = ConfirmEAPData},
  	ConfirmRespPacketData = ocs_eap_codec:eap_packet(ConfirmRespPacket),
  	ConfirmAttributeList1 = radius_attributes:store(?EAPMessage,
  	   ConfirmRespPacketData, IDReqAttributeList5),
  