anchor.diff:  %%
   all() ->
   	[eap_identity_radius, eap_identity_diameter, eap_identity_radius_trusted,
  -			eap_identity_diameter_trusted, eap_identity_radius_no_client].
  +			eap_identity_diameter_trusted, eap_identity_radius_no_client,
  +			eap_aka_prf].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 			PeerId1, Secret, ReqAuth, EapId, RadId),
  	{error,timeout} = gen_udp:recv(Socket, 0, 5000).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  %%---------------------------------------------------------------------
  
negative.code: -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(eap_aka_prf, Config) ->
  	Config;
  end_per_testcase(TestCase, Config)
  		when TestCase == eap_identity_diameter; TestCase == eap_identity_diameter_trusted;
  				TestCase == eap_identity_diameter_no_client ->
  