anchor.diff:  %% Returns a list of all test cases in this test suite.
   %%
   all() ->
  -	[eap_identity_radius].
  +	[eap_identity_radius, eap_identity_diameter].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 	NextEapId = EapId + 1,
  	{NextEapId, _Token, _ServerID} = receive_radius_id(Socket, Address,
  			Port, Secret, ReqAuth, RadId).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  
negative.code: 			PeerId, Secret, Auth, RadId, EapMsg).
  
  %% @hidden
  send_diameter_identity(SId, EapId, PeerId) ->
  	EapPacket  = #eap_packet{code = response, type = ?Identity,
  			identifier = EapId, data = PeerId},
  	EapMsg = ocs_eap_codec:eap_packet(EapPacket),
  	DER = #diameter_eap_app_DER{'Session-Id' = SId,
  			'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  			'Auth-Request-Type' = ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  			'EAP-Payload' = EapMsg},
  	{ok, Answer} = diameter:call(?MODULE, eap_app_test, DER, []),
  	Answer.
  
  %% @hidden
  mac() ->
  	mac([]).
  %% @hidden
  