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:    [{userdata, [{doc, "Send an EAP-pwd-ID/Response to peer"}]}].
  
  pwd_id(Config) ->
  	PeerId = <<"23456789">>,
  	MAC = "bb:cc:dd:ee:ff:aa",
  	PeerAuth = ocs:generate_password(),
  	ok = ocs:add_subscriber(PeerId, PeerAuth, []),
  	Socket = ?config(socket, Config), 
  	{ok, Address} = application:get_env(ocs, radius_auth_addr),
  	{ok, Port} = application:get_env(ocs, radius_auth_port),
  	NasId = ?config(nas_id, Config),
  	UserName = ct:get_config(radius_username),
  	Secret = ct:get_config(radius_shared_secret),
  	ReqAuth1 = radius:authenticator(),
  	RadId = 2, EapId = 1,
  	ok = send_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, MAC, ReqAuth1, EapId, RadId),
  	NextEapId = EapId + 1,
  	{NextEapId, _ServerID} = receive_id(Socket, Address,
  			Port, Secret, ReqAuth1, RadId),
  	ReqAuth2 = radius:authenticator(),
  	send_id(Socket, Address, Port, Secret,
  			ReqAuth2, UserName, NasId, PeerId, MAC, NextEapId, RadId + 1),
  	{ok, {_Address, _Port, RespPacket1}} = gen_udp:recv(Socket, 0),
  	Response1 = radius:codec(RespPacket1),
  	#radius{code = ?AccessChallenge, attributes = Attributes} = Response1,
  