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: 
  invalid_id_response_eap_packet(Config) ->
  	Id = 5,
  	PeerID = <<"peer5@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: 		attributes = BinIDReqAttributes} = radius:codec(Packet),
  	IDReqAttributes = radius_attributes:codec(BinIDReqAttributes),
  	{ok, EAPPacket} = radius_attributes:find(?EAPMessage, IDReqAttributes),
  	#eap_packet{code = request, type = ?PWD, identifier = _ID, data = Data} =
  		ocs_eap_codec:eap_packet(EAPPacket),
  	#eap_pwd{length = false, more = false, pwd_exch = id, tot_length = _L,
  		data = IDReqBody} = ocs_eap_codec:eap_pwd(Data),
  	#eap_pwd_id{group_desc = 19, random_fun = 16#1, prf = 16#1, token =_Token, pwd_prep = none,
  