anchor.diff:  %% Returns a list of all test cases in this test suite.
   %%
   all() ->
  -	[aka_prf].
  +	[aka_prf, aka_identity_radius].
   
   %%---------------------------------------------------------------------
   %%  Test cases
   %%---------------------------------------------------------------------
  +
  +aka_identity_radius() ->
  +   [{userdata, [{doc, "Send an EAP-Identity/Response using RADIUS"}]}].
  +
  +aka_identity_radius(Config) ->
  +	Socket = ?config(socket, Config),
  +	{ok, RadiusConfig} = application:get_env(ocs, radius),
  +	{auth, [{Address, Port, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  +	NasId = ?config(nas_id, Config),
  +	ReqAuth = radius:authenticator(),
  +	RadId = 1, EapId = 1,
  +	Secret = ct:get_config(radius_shared_secret),
  +	Realm = ?config(realm, Config),
  +	MSIN = msin(),
  +	PeerId = "0" ++ ct:get_config(mcc) ++ ct:get_config(mcc)
  +			++ MSIN ++ "@wlan." ++ Realm,
  +	PeerId1 = list_to_binary(PeerId),
  +	ok = send_radius_identity(Socket, Address, Port, NasId,
  +			PeerId1, Secret, ReqAuth, EapId, RadId),
  +	NextEapId = EapId + 1,
  +	{NextEapId, _ServerID} = receive_radius_id(Socket, Address,
  +			Port, Secret, ReqAuth, RadId).
   
   aka_prf() ->
      [{userdata, [{doc, "Psuedo-Random Number Function (PRF) (RFC4187 Appendix A)"}]}].
  
positive.code: %%  Internal functions
  %%---------------------------------------------------------------------
  
  
negative.code: %% Initialization before each test case.
  %%
  init_per_testcase(aka_prf, Config) ->
  	Config;
  init_per_testcase(TestCase, Config)
  		when TestCase == aka_identity_diameter ->
  	{ok, DiameterConfig} = application:get_env(ocs, diameter),
  	{auth, [{Address, _, _} | _]} = lists:keyfind(auth, 1, DiameterConfig),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true, false),
  	[{diameter_client, Address} | Config];
  init_per_testcase(TestCase, Config)
  		when TestCase == aka_identity_radius ->
  	{ok, RadiusConfig} = application:get_env(ocs, radius),
  	{auth, [{RadIP, _, _} | _]} = lists:keyfind(auth, 1, RadiusConfig),
  	{ok, Socket} = gen_udp:open(0, [{active, false}, inet, {ip, RadIP}, binary]),
  	SharedSecret = ct:get_config(radius_shared_secret),
  	Protocol = radius,
  	{ok, _} = ocs:add_client(RadIP, undefined, Protocol, SharedSecret, true, false),
  	NasId = atom_to_list(node()),
  	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config].
  
  -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 == aka_identity_diameter ->
  	DClient = ?config(diameter_client, Config),
  	ok = ocs:delete_client(DClient);
  end_per_testcase(_TestCase, Config) ->
  	Socket = ?config(socket, Config),
  	RadClient = ?config(radius_client, Config),
  	ok = ocs:delete_client(RadClient),
  	ok = gen_udp:close(Socket).
  
  -spec sequences() -> Sequences :: [{SeqName :: atom(), Testcases :: [atom()]}].
  %% Group test cases into a test sequence.
  