anchor.diff:  %%
   end_per_testcase(prf, Config) ->
   	Config;
  -end_per_testcase(TestCase, Config)
  -		when TestCase == identity_diameter_eap;
  -		TestCase == identity_diameter_swm; TestCase == identity_diameter_swm_trusted ->
  -	DClient = ?config(diameter_client, Config),
  -	ok = ocs:delete_client(DClient);
  -end_per_testcase(_TestCase, Config) ->
  +end_per_testcase(radius_identity, Config) ->
   	Socket = ?config(socket, Config),
   	RadClient = ?config(radius_client, Config),
   	ok = ocs:delete_client(RadClient),
  -	ok = gen_udp:close(Socket).
  +	ok = gen_udp:close(Socket);
  +end_per_testcase(TestCase, Config)
  +		when TestCase == identity_diameter_eap;
  +		TestCase == identity_diameter_swm;
  +		TestCase == identity_diameter_swm_trusted ->
  +	DiameterClient = ?config(diameter_client, Config),
  +	ok = ocs:delete_client(DiameterClient).
   
   -spec sequences() -> Sequences :: [{SeqName :: atom(), Testcases :: [atom()]}].
   %% Group test cases into a test sequence.
  
positive.code: 	NasId = atom_to_list(node()),
  	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config];
  init_per_testcase(TestCase, Config)
  		when TestCase == identity_diameter_swm_trusted ->
  	{ok, DiameterConfig} = application:get_env(ocs, diameter),
  	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
  
negative.code: 			data = _EapData} = ocs_eap_codec:eap_packet(Payload).
  
  identity_diameter_swm_trusted() ->
     [{userdata, [{doc, "Send an  EAP-Identity/Response using DIAMETER 3GPP SWm application from a trusted client"}]}].
  
  identity_diameter_swm_trusted(Config) ->
  	Ref = erlang:ref_to_list(make_ref()),
  