anchor.diff:  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true, false),
   	[{diameter_client, Address} | Config];
   init_per_testcase(TestCase, Config)
  -		when TestCase == identity_radius ->
  +		when TestCase == identity_radius_eap ->
   	{ok, RadiusConfig} = application:get_env(ocs, radius),
   	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
   	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, {ip, RadIP}, binary]),
  
positive.code: 			'EAP-Payload' = EapMsg},
  	{ok, Answer} = diameter:call(?MODULE, eap_app_test, DER, []),
  	Answer;
  send_diameter_identity(?SWm_APPLICATION_ID, SId, EapId, PeerId) ->
  	EapPacket  = #eap_packet{code = response, type = ?Identity,
  			identifier = EapId, data = PeerId},
  
negative.code: 	Protocol = radius,
  	{ok, _} = ocs:add_client(RadIP, undefined, Protocol, SharedSecret, true, false),
  	NasId = atom_to_list(node()),
  	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config];
  init_per_testcase(TestCase, Config)
  		when TestCase == identity_diameter_swm ->
  	{ok, DiameterConfig} = application:get_env(ocs, diameter),
  	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true, true),
  	[{diameter_client, Address} | Config].
  
  -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  