anchor.diff:  	{NextEapId, _ServerID} = receive_radius_id(Socket, Address,
   			Port, Secret, ReqAuth, RadId).
   
  -eap_identity_diameter() ->
  +akap_identity_diameter() ->
      [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER"}]}].
   
  -eap_identity_diameter(Config) ->
  +akap_identity_diameter(Config) ->
   	Ref = erlang:ref_to_list(make_ref()),
   	SId = diameter:session_id(Ref),
   	EapId = 1,
  
positive.code: 	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
  			data = _EapData} = ocs_eap_codec:eap_packet(Payload).
  
  eap_identity_radius_no_client() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using RADIUS"}]}].
  
  eap_identity_radius_no_client(Config) ->
  	Socket = ?config(socket, Config),
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{Address, Port, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
negative.code: -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(aka_prf, Config) ->
  	Config;
  end_per_testcase(TestCase, Config)
  		when TestCase == akap_identity_diameter; TestCase == akap_identity_diameter_trusted;
  				TestCase == akap_identity_diameter_no_client ->
  	DClient = ?config(diameter_client, Config),
  	ok = ocs:delete_client(DClient);
  end_per_testcase(_TestCase, Config) ->
  