anchor.diff:  	ok = send_radius_identity(Socket, Address, Port, NasId,
   			PeerId1, Secret, ReqAuth, EapId, RadId),
   	NextEapId = EapId + 1,
  +erlang:display({?MODULE, ?LINE, here}),
   	{NextEapId, _ServerID} = receive_radius_id(Socket, Address,
   			Port, Secret, ReqAuth, RadId).
   
  
positive.code: %% Cleanup after each test case.
  %%
  end_per_testcase(TestCase, Config)
  		when TestCase == eap_identity_diameter ->
  	DClient = ?config(diameter_client, Config),
  	ok = ocs:delete_client(DClient);
  end_per_testcase(_TestCase, Config) ->
  
negative.code: 		S :: binary(),
  		N :: pos_integer(),
  		MK :: binary().
  %% @doc Pseudo-RANDom Number Function (PRF).
  %%
  %%      See RFC5448 3.4.
  %% @private
  