anchor.diff:  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true, false),
   	[{diameter_client, Address} | Config];
   init_per_testcase(TestCase, Config)
  +		when TestCase == eap_identity_diameter_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 == eap_identity_radius ->
   	{ok, RadiusConfig} = application:get_env(ocs, radius),
   	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
positive.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.
  
  eap_identity_radius_trusted() ->
     [{userdata, [{doc, "Send an trusted EAP-Identity/Response using RADIUS"}]}].
  
negative.code: 	ok = send_radius_identity(Socket, Address, Port, NasId,
  			PeerId1, Secret, ReqAuth, EapId, RadId),
  	_Mac = receive_radius_id1(Socket, Address,
  			Port, Secret, ReqAuth, RadId, Service, PeerId1),
  	ok = ocs:delete_service(PeerId).
  
  eap_identity_diameter_trusted() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER"}]}].
  
  eap_identity_diameter_trusted(Config) ->
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	EapId = 1,
  	Realm = ?config(realm, Config),
  	MSIN = msin(),
  	Name = ct:get_config(mcc) ++ ct:get_config(mcc) ++ MSIN,
  	PeerId = "6" ++ Name ++ "@wlan." ++ Realm,
  	PeerId1 = list_to_binary(PeerId),
  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	Service = add_service(Name, ProdRef),
  	DEA = send_diameter_identity(SId, EapId, PeerId1),
  	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',
  			'EAP-Payload' = [Payload]} = DEA,
  	NextEapId = EapId + 1,
  	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
  			data = EapData} = ocs_eap_codec:eap_packet(Payload).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  