anchor.diff:  -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
   %% Initialization before each test case.
   %%
  +init_per_testcase(TestCase, Config)
  +		when TestCase == eap_identity_diameter ->
  +	{ok, DiameterConfig} = application:get_env(ocs, diameter),
  +	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
  +	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  +	[{diameter_client, Address} | Config];
   init_per_testcase(_TestCase, Config) ->
   	{ok, RadiusConfig} = application:get_env(ocs, radius),
  -	{auth, [{RadIP, RadPort, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  +	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
   	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, {ip, RadIP}, binary]),
   	SharedSecret = ct:get_config(radius_shared_secret),
   	Protocol = radius,
  -	{ok, _} = ocs:add_client(RadIP, RadPort, Protocol, SharedSecret, true),
  +	{ok, _} = ocs:add_client(RadIP, undefined, Protocol, SharedSecret, true, false),
   	NasId = atom_to_list(node()),
   	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config].
   
   -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
   %% Cleanup after each test case.
   %%
  +end_per_testcase(TestCase, Config)
  +		when TestCase == eap_identity_diameter ->
  +	DClient = ?config(diameter_client, Config),
  +	ok = ocs:delete_client(DClient);
   end_per_testcase(_TestCase, Config) ->
   	Socket = ?config(socket, Config),
   	RadClient = ?config(radius_client, Config),
  
positive.code: 	Secret = ct:get_config(radius_shared_secret),
  	Realm = ?config(realm, Config),
  	MSIN = msin(),
  	PeerId = "6" + ct:get_config(mcc) ++ ct:get_config(mcc)
  			++ MSIN ++ "@wlan." ++ Realm,
  	ok = send_radius_identity(Socket, Address, Port, NasId,
  			PeerId, Secret, ReqAuth, EapId, RadId),
  	NextEapId = EapId + 1.
  	{NextEapId, _Token, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  
negative.code: 	mac([]).
  %% @hidden
  mac(Acc) when length(Acc) =:= 12 ->
  	Acc;
  mac(Acc) ->
  	mac([integer_to_list(rand:uniform(255), 16) | Acc]).
  
  