anchor.diff:  %% Returns a list of all test cases in this test suite.
   %%
   all() -> 
  -	[radius_accouting].
  +	[radius_accouting, disconnect_session].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 	#radius{code = ?AccountingResponse, id = RADAcct_NewReqId } = radius:codec(RADAcct_stop_response),
  	ok =  gen_udp:close(Socket). 
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  %%---------------------------------------------------------------------
  
negative.code: 	ok = ocs:add_client(AuthAddress, SharedSecret),
  	PeerId = "25252525",
  	PeerPassword = ocs:generate_password(),
  	ok = ocs:add_subscriber(PeerId, PeerPassword, <<>>, 1000),
  	[{peer_id, PeerId} | Config].
  
  -spec end_per_suite(Config :: [tuple()]) -> any().
  