anchor.diff:  %% Cleanup after each test case.
   %%
   end_per_testcase(TestCase, Config)
  -		when TestCase == eap_identity_diameter ->
  +		when TestCase == eap_identity_diameter; TestCase == eap_identity_diameter_trusted ->
   	DClient = ?config(diameter_client, Config),
   	ok = ocs:delete_client(DClient);
   end_per_testcase(_TestCase, Config) ->
  
positive.code: 	ok = send_radius_identity(Socket, Address, Port, NasId,
  			PeerId1, Secret, ReqAuth, EapId, RadId),
  	NextEapId = EapId + 1,
  	{NextEapId, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  
negative.code: 	T2 = crypto:hmac(sha256, K, <<T1/binary, S/binary, P>>),
  	prf(K, S, N, P + 1, T2, [T2 | Acc]).
  
  -spec autn(SQN, AK, AMF, MAC) -> AUTN
          when
                  SQN :: integer(),
                  AK :: integer(),
                  AMF :: binary(),
                  MAC :: binary(),
                  AUTN :: binary().
  %% @doc Network Authentication Token (AUTN).
  %%
  %% @private
  autn(SQN, AK, AMF, MAC)
                  when is_integer(SQN), is_integer(AK),
                  byte_size(AMF) =:= 2, byte_size(MAC) =:= 8 ->
          SQNa = SQN bxor AK,
          <<SQNa:48, AMF/binary, MAC/binary>>.
  
  