anchor.diff:  	SharedSecret = ct:get_config(radius_shared_secret),
   	ok = ocs:add_client(AuthAddress, SharedSecret),
   	NasId = atom_to_list(node()),
  -	PeerId = <<"25252525">>,
  -	PeerPassword = ocs:generate_password(),
  -	ok = ocs:add_subscriber(PeerId, PeerPassword, []),
  -	[{nas_id, NasId}, {peer_id, PeerId}] ++ Config.
  +	[{nas_id, NasId}] ++ Config.
   
   -spec end_per_suite(Config :: [tuple()]) -> any().
   %% Cleanup after the whole suite.
  
positive.code: %%---------------------------------------------------------------------
  
  send_identity(Socket, Address, Port, NasId,
  		UserName, Secret, PeerId, Auth, EapId, RadId) ->
  	A0 = radius_attributes:new(),
  	A1 = radius_attributes:add(?UserName, UserName, A0),
  	A2 = radius_attributes:add(?NasPort, 0, A1),
  	A3 = radius_attributes:add(?NasIdentifier, NasId, A2),
  	A4 = radius_attributes:add(?CallingStationId, "de:ad:be:ef:ca:fe", A3),
  	EapPacket  = #eap_packet{code = response, type = ?Identity,
  			identifier = EapId, data = PeerId},
  	EapMessage = ocs_eap_codec:eap_packet(EapPacket),
  
negative.code: 			identity = ServerID} = ocs_eap_codec:eap_pwd_id(EapPwdData),
  	{EapId, ServerID}.
  
  send_id(Socket, Address, Port, Secret, ReqAuth, UserName,
  		NasId, PeerId, MAC, EapId, RadId) ->
  	A0 = radius_attributes:new(),
  	A1 = radius_attributes:add(?UserName, UserName, A0),
  	A2 = radius_attributes:add(?NasPort, 0, A1),
  	A3 = radius_attributes:add(?NasIdentifier, NasId, A2),
  	A4 = radius_attributes:add(?CallingStationId, MAC, A3),
  	Token = crypto:rand_bytes(4),
  	EapPwdId = #eap_pwd_id{group_desc = 19, random_fun = 16#1, prf = 16#1,
  			token = Token, pwd_prep = none, identity = PeerId},
  	EapPwd = #eap_pwd{pwd_exch = id, data = ocs_eap_codec:eap_pwd_id(EapPwdId)},
  	EapPacket  = #eap_packet{code = response, type = ?PWD, identifier = EapId,
  			data = ocs_eap_codec:eap_pwd(EapPwd)},
  	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
  	A5 = radius_attributes:add(?EAPMessage, EapMsg, A4),
  	A6 = radius_attributes:add(?MessageAuthenticator,
  			list_to_binary(lists:duplicate(16,0)), A5),
  	Request1 = #radius{code = ?AccessRequest, id = RadId,
  			authenticator = ReqAuth, attributes = A6},
  	RequestPacket1 = radius:codec(Request1),
  	MsgAuth1 = crypto:hmac(md5, Secret, RequestPacket1),
  