anchor.diff:  	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().
  
positive.code: %% Returns a list of all test cases in this test suite.
  %%
  all() ->
  	[eap_identity_radius, eap_identity_diameter].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  
negative.code: msin(Acc) ->
  	msin([rand:uniform(10) + 47 | Acc]).
  
  %% @hidden
  price(Type, Units, Size, Amount) ->
  	#price{name = ocs:generate_identity(),
  			type = Type, units = Units,
  			size = Size, amount = Amount}.
  
  %% @hidden
  add_offer(Prices, Spec) when is_integer(Spec) ->
  	add_offer(Prices, integer_to_list(Spec));
  add_offer(Prices, Spec) ->
  	Offer = #offer{name = ocs:generate_identity(),
  			price = Prices, specification = Spec},
  	{ok, #offer{name = OfferId}} = ocs:add_offer(Offer),
  	OfferId.
  
  %% @hidden
  add_product(OfferId) ->
  	add_product(OfferId, []).
  add_product(OfferId, Chars) ->
  	{ok, #product{id = ProdRef}} = ocs:add_product(OfferId, Chars),
  	ProdRef.
  
  %% @hidden
  add_service(ProdRef) ->
  	K = crypto:strong_rand_bytes(16),
  	OPc = crypto:strong_rand_bytes(16),
  	Credentials = #aka_cred{k = K, opc = OPc},
  	{ok, Service} =
  			ocs:add_service(ocs:generate_identity(), Credentials,
  			ProdRef, []),
  	Service.
  
  