anchor.diff:                          _:64/binary, _/binary>> = prf(<<IKprime/binary,
   	CKprime/binary>>, <<"EAP-AKA'", Identity/binary>>, 7),
           EapMessage1 = ocs_eap_codec:eap_packet(EapPacket),
  -	MAC = crypto:hmac(sha256, Kaut, EapMessage1 , 16).
  +	_MAC = crypto:hmac(sha256, Kaut, EapMessage1, 16).
   
   %% @hidden
   send_radius_identity(Socket, Address, Port, NasId,
  
positive.code: 	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,
  
negative.code: 			PeerId1, Secret, ReqAuth, EapId, RadId),
  	_Mac = receive_radius_id1(Socket, Address,
  			Port, Secret, ReqAuth, RadId, Service, PeerId1),
  	ok = ocs:delete_service(PeerId1).
  
  eap_identity_diameter_trusted() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER"}]}].
  