anchor.diff:  init_per_testcase(aka_prf, Config) ->
   	Config;
   init_per_testcase(TestCase, Config)
  -		when TestCase == akap_identity_diameter ->
  +		when TestCase == identity_diameter_eap ->
   	{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 == akap_identity_diameter_trusted ->
  +		when TestCase == identity_diameter_eap_trusted ->
   	{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];
   init_per_testcase(TestCase, Config)
  -		when TestCase == akap_identity_radius ->
  +		when TestCase == identity_radius ->
   	{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: 			data = EapData} = ocs_eap_codec:eap_packet(Payload),
  	#eap_aka_identity{fullauth_id_req = true} = ocs_eap_codec:eap_aka(EapData).
  
  akap_identity_radius_trusted() ->
     [{userdata, [{doc, "Send an trusted EAP-Identity/Response using RADIUS"}]}].
  
  akap_identity_radius_trusted(Config) ->
  	Socket = ?config(socket, Config),
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{Address, Port, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
negative.code: 	ok = gen_udp:send(Socket, Address, Port, EapMessage2),
  	{ok, {Address, Port, _RespPacket1}} = gen_udp:recv(Socket, 0).
  
  identity_diameter_eap_trusted() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER EAP application from a trusted client"}]}].
  
  identity_diameter_eap_trusted(Config) ->
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	EapId = 1,
  