anchor.diff:  %% Returns a list of all test cases in this test suite.
   %%
   all() ->
  -	[eap_identity_radius, eap_identity_diameter, eap_identity_radius_trusted].
  +	[eap_identity_radius, eap_identity_diameter, eap_identity_radius_trusted,
  +	eap_identity_diameter_trusted].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true, false),
  	[{diameter_client, Address} | Config];
  init_per_testcase(TestCase, Config)
  		when  TestCase == eap_identity_radius ->
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
negative.code: 	SIdbin = list_to_binary(SId),
  	#diameter_eap_app_DEA{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  			'Auth-Request-Type' =  ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  			'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH'} = DEA,
  	NextEapId = EapId + 1,
  	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
  			data = EapData} = ocs_eap_codec:eap_packet(Payload).
  
  eap_identity_radius_trusted() ->
     [{userdata, [{doc, "Send an trusted EAP-Identity/Response using RADIUS"}]}].
  