anchor.diff:     [{userdata, [{doc, "Send an EAP-Identity/Response to peer"}]}].
   
   eap_identity(Config) ->
  +	MAC = "aa:bb:cc:dd:ee:ff",
  +	PeerId = <<"12345678">>,
   	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),
  -	PeerId = ?config(peer_id, Config),
   	UserName = ct:get_config(radius_username),
   	Secret = ct:get_config(radius_shared_secret),
   	ReqAuth = radius:authenticator(),
   	RadId = 1, EapId = 1,
   	ok = send_identity(Socket, Address, Port, NasId, UserName,
  -			Secret, PeerId, ReqAuth, EapId, RadId),
  +			Secret, PeerId, MAC, ReqAuth, EapId, RadId),
   	NextEapId = EapId + 1,
   	{NextEapId, _ServerID} = receive_id(Socket, Address,
   			Port, Secret, ReqAuth, RadId).
  
positive.code:    [{userdata, [{doc, "Send an EAP-pwd-ID/Response to peer"}]}].
  
  pwd_id(Config) ->
  	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),
  	PeerId = ?config(peer_id, Config),
  	UserName = ct:get_config(radius_username),
  	Secret = ct:get_config(radius_shared_secret),
  	ReqAuth1 = radius:authenticator(),
  	RadId = 1, EapId = 1,
  	ok = send_identity(Socket, Address, Port, NasId, UserName,
  			Secret, PeerId, 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),
  	{ok, {_Address, _Port, RespPacket1}} = gen_udp:recv(Socket, 0),
  	Response1 = radius:codec(RespPacket1),
  	#radius{code = ?AccessChallenge, attributes = Attributes} = Response1,
  
negative.code: 	SharedSecret = ct:get_config(radius_shared_secret),
  	ok = ocs:add_client(AuthAddress, SharedSecret),
  	NasId = atom_to_list(node()),
  	[{nas_id, NasId}] ++ Config.
  
  -spec end_per_suite(Config :: [tuple()]) -> any().
  %% Cleanup after the whole suite.
  