anchor.diff:  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true, false),
   	[{diameter_client, Address} | Config];
   init_per_testcase(TestCase, Config)
  +		when TestCase == identity_diameter_swm;
  +		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, false),
  +	[{diameter_client, Address} | Config];
  +init_per_testcase(TestCase, Config)
   		when TestCase == identity_radius ->
   	{ok, RadiusConfig} = application:get_env(ocs, radius),
   	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
positive.code: 	#eap_packet{code = request, type = ?AKA, identifier = NextEapId,
  			data = _EapData} = ocs_eap_codec:eap_packet(Payload).
  
  identity_diameter_swm_trusted() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER 3GPP SWm application"}]}].
  
  identity_diameter_swm_trusted(Config) ->
  	Ref = erlang:ref_to_list(make_ref()),
  
negative.code: %% Returns a list of all test cases in this test suite.
  %%
  all() ->
  	[prf, identity_radius, identity_diameter_eap, identity_diameter_swm,
  			identity_diameter_swm_trusted].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  