anchor.diff:  	DiscAckRec = #radius{code = ?DisconnectAck, id = DiscReqID,
   			authenticator = DiscAckAuth, attributes = DiscAckAttrBin},
   	DiscAck = radius:codec(DiscAckRec),
  -	ok = gen_udp:send(Socket, OCSAddr, OCSPort, DiscAck),
  -	ok =  gen_udp:close(Socket).
  +	ok = gen_udp:send(Socket, OCSAddr, OCSPort, DiscAck).
   
   access_accept(Socket, Address, Port, RadID) ->
  +erlang:display({?MODULE, ?LINE, Socket, Address, Port, RadID}),
   	receive_radius(?AccessAccept, Socket, Address, Port, RadID).
   
   accounting_response(Socket, Address, Port, Secret, RadID, ReqAuth) ->
  +erlang:display({?MODULE, ?LINE, Socket, Address, Port, Secret, RadID}),
   	#radius{id = RadID, authenticator = RespAuth,
   		attributes = Attributes}
   		= receive_radius(?AccountingResponse, Socket, Address, Port, RadID),
  
positive.code: %% Initialization before each test case.
  %%
  init_per_testcase(TestCase, Config) when
  		TestCase == diameter_accounting; TestCase == diameter_disconnect_session ->
  	{ok, EnvList} = application:get_env(ocs, diameter),
  	{acct, [{Address, _Port, _Options } | _]} = lists:keyfind(acct, 1, EnvList),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  	Config;
  init_per_testcase(_TestCase, Config) ->
  	NasID = erlang:ref_to_list(make_ref()),
  	Port = ocs_test_lib:port(),
  	SharedSecret = ct:get_config(radius_shared_secret),
  	{ok, _} = ocs:add_client({127, 0, 0, 1}, Port, radius, SharedSecret, true),
  	[{nas_id, NasID}, {radius_disc_port, Port} | Config].
  
  -spec end_per_testcase(TestCase :: atom(), Config :: [tuple()]) -> any().
  %% Cleanup after each test case.
  %%
  end_per_testcase(TestCase, Config) when
  		TestCase == diameter_accounting; TestCase == diameter_disconnect_session ->
  	Client = ?config(diameter_auth_client, Config),
  	ok = ocs:delete_client(Client);
  end_per_testcase(_TestCase, _Config) ->
  	ocs:delete_client({127, 0, 0, 1}).
  
  -spec sequences() -> Sequences :: [{SeqName :: atom(), Testcases :: [atom()]}].
  %% Group test cases into a test sequence.
  
negative.code: 			ReqAuth, Attributes, Secret])).
  
  receive_radius(Code, Socket, Address, Port, RadID) ->
  erlang:display({?MODULE, ?LINE, Code, Socket, Address, Port, RadID}),
  	{ok, {Address, Port, RespPacket}} = gen_udp:recv(Socket, 0),
  erlang:display({?MODULE, ?LINE, radius:codec(RespPacket)}),
  	#radius{code = Code, id = RadID} = radius:codec(RespPacket).
  
  access_request(Socket, Address, Port, UserName, Secret,
  