anchor.diff:  	Config1 = [{radius_shared_secret, SharedSecret} | Config],
   	ok = ocs:add_client({127, 0, 0, 1}, 3799, Protocol, SharedSecret),
   	NasID = atom_to_list(node()),
  -	[{nas_id, NasID} | Config1].
  +	Config2 = [{nas_id, NasID} | Config1],
  +	{ok, [{auth, DiaAuthInstance}, {acct, _}]} = application:get_env(ocs, diameter),
  +	[{Address, Port, _}] = DiaAuthInstance,
  +	true = diameter:subscribe(?SVC),
  +	ok = diameter:start_service(?SVC, client_service_opts()),
  +	{ok, _Ref} = connect(?SVC, Address, Port, diameter_tcp),
  +	receive
  +		#diameter_event{service = ?SVC, info = start} ->
  +			[{diameter_client, Address}] ++ Config2;
  +		_ ->
  +			{skip, diameter_client_service_not_started}
  +	end.
   
   -spec end_per_suite(Config :: [tuple()]) -> any().
   %% Cleanup after the whole suite.
   %%
   end_per_suite(Config) ->
  +	ok = diameter:stop_service(?SVC),
   	ok = ocs_test_lib:stop(),
   	ok = ocs:delete_subscriber("25252525"),
   	Config.
  
positive.code: %% Returns a list of all test cases in this test suite.
  %%
  all() -> 
  	[radius_accouting, radius_disconnect_session].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  
negative.code: 			PeerID, Secret, NasID, AcctSessionID, RadID4),
  	disconnect_request().
  
  diameter_accounting() ->
  	[{userdata, [{doc, "Initiate and terminate a Diameter accouting session"}]}].
  
  diameter_accounting(Config) ->
  	% Add a subscriber
  	% Authenticate Subscriber
  	% Send Accounting Start
  	% Send Interim
  	% Send Accounting Stop
  	ok.
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  %%---------------------------------------------------------------------
  