anchor.diff:  			PeerId1, Secret, ReqAuth, EapId, RadId),
   	{error,timeout} = gen_udp:recv(Socket, 0, 5000).
   
  +eap_aka_prf() ->
  +   [{userdata, [{doc, "Psuedo-Random Number Function (PRF) (RFC4187 Appendix A)"}]}].
  +
  +eap_aka_prf(Config) ->
  +	{skip, not_implemented}.
  +	% <<0:160>> = ocs_eap_aka:prf(<<0:160>>).
  +
   %%---------------------------------------------------------------------
   %%  Internal functions
   %%---------------------------------------------------------------------
  
positive.code: -spec init_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> Config :: [tuple()].
  %% Initialization before each test case.
  %%
  init_per_testcase(TestCase, Config)
  		when TestCase == eap_identity_diameter ->
  	{ok, DiameterConfig} = application:get_env(ocs, diameter),
  
negative.code: %%
  all() ->
  	[eap_identity_radius, eap_identity_diameter, eap_identity_radius_trusted,
  			eap_identity_diameter_trusted, eap_identity_radius_no_client,
  			eap_aka_prf].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  