anchor.diff:  			PeerId1, Secret, ReqAuth, EapId, RadId),
   	{error,timeout} = gen_udp:recv(Socket, 0, 5000).
   
  -eap_aka_prf() ->
  +aka_prf() ->
      [{userdata, [{doc, "Psuedo-Random Number Function (PRF) (RFC4187 Appendix A)"}]}].
   
  -eap_aka_prf(Config) ->
  +aka_prf(_Config) ->
   	{skip, not_implemented}.
   	% <<0:160>> = ocs_eap_aka:prf(<<0:160>>).
   
  
positive.code: %% Returns a list of all test cases in this test suite.
  %%
  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
  %%---------------------------------------------------------------------
  
  eap_identity_radius() ->
     [{userdata, [{doc, "Send an EAP-Identity/Response using RADIUS"}]}].
  
  eap_identity_radius(Config) ->
  	Socket = ?config(socket, Config),
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{Address, Port, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  
negative.code: -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(aka_prf, Config) ->
  	Config;
  end_per_testcase(TestCase, Config)
  		when TestCase == akap_identity_diameter; TestCase == akap_identity_diameter_trusted;
  				TestCase == akap_identity_diameter_no_client ->
  	DClient = ?config(diameter_client, Config),
  	ok = ocs:delete_client(DClient);
  end_per_testcase(_TestCase, Config) ->
  