anchor.diff:  	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
   			data = _EapData} = ocs_eap_codec:eap_packet(Payload).
   
  -eap_identity_radius_trusted() ->
  +akap_identity_radius_trusted() ->
      [{userdata, [{doc, "Send an trusted EAP-Identity/Response using RADIUS"}]}].
   
  -eap_identity_radius_trusted(Config) ->
  +akap_identity_radius_trusted(Config) ->
   	Socket = ?config(socket, Config),
   	{ok, RadiusConfig} = application:get_env(ocs, radius),
   	{auth, [{Address, Port, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
positive.code: 	{NextEapId, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  eap_identity_diameter() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER"}]}].
  
  eap_identity_diameter(Config) ->
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	EapId = 1,
  
negative.code: 	NasId = atom_to_list(node()),
  	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config];
  init_per_testcase(TestCase, Config)
  		when TestCase == akap_identity_diameter_no_client ->
  	{ok, DiameterConfig} = application:get_env(ocs, diameter),
  	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
  	[{diameter_client, Address} | Config];
  init_per_testcase(TestCase, Config)
  		when TestCase == akap_identity_radius_no_client ->
  	{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]),
  