anchor.diff:  %% Returns a list of all test cases in this test suite.
   %%
   all() ->
  -	[eap_identity_radius, eap_identity_diameter].
  +	[eap_identity_radius, eap_identity_diameter, eap_identity_radius_trusted].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: msin(Acc) ->
  	msin([rand:uniform(10) + 47 | Acc]).
  
  
negative.code: 	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];
  init_per_testcase(TestCase, Config)
  		when TestCase == eap_identity_radius_trusted ->
  	{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, true),
  	NasId = atom_to_list(node()),
  	[{nas_id, NasId}, {socket, Socket}, {radius_client, RadIP} | Config].
  
  -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  