anchor.diff:  
   unknown_authenticator(Config) ->
   	Id = 4,
  -	PeerID = <<"peer4@sigscale">>,
  +	PeerID = list_to_binary(?config(peer_id, Config)),
   	{ok, AuthAddress} = application:get_env(ocs, radius_auth_addr),
   	{ok, AuthPort} = application:get_env(ocs, radius_auth_port),
   	Socket = ?config(socket, Config),
  
positive.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),
  	Kp = ocs_eap_pwd:compute_ks(<<P_Rand:256>>, PWE, Scalar_S, Element_S),
  	Input = [<<Kp/binary, Element_P/binary, Scalar_P/binary, Element_S/binary, 
  		Scalar_S/binary, 19:16, 1, 1>>],
  	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),
  
negative.code: 
  invalid_id_response_eap_packet(Config) ->
  	Id = 5,
  	PeerID = list_to_binary(?config(peer_id, Config)),
  	{ok, AuthAddress} = application:get_env(ocs, radius_auth_addr),
  	{ok, AuthPort} = application:get_env(ocs, radius_auth_port),
  	Socket = ?config(socket, Config),
  