anchor.diff:  	fill_auth(N - 1).
   
   fill_acct() ->
  -	AcctOutputOctets = rand:uniform(100000),
  -	AcctInputOctets = rand:uniform(100000000),
  -	AcctSessionTime = rand:uniform(3600) + 100,
  -	UserName = ocs:generate_identity(),
  -	Server = {{0, 0, 0, 0}, 3698},
  -	I3 = rand:uniform(256) - 1,
  -	I4 = rand:uniform(254),
  -	ClientAddress = {192, 168, I3, I4},
  -	Type = case rand:uniform(3) of
  -		1 -> start;
  -		2 -> stop;
  -		3 -> interim
  -	end,
  -	Record = #'3gpp_ro_CCR'{'Origin-Host' = ClientAddress, 'Service-Context-Id' = 2, 'Subscription-Id' = [#'3gpp_ro_Subscription-Id'{'Subscription-Id-Data'
  -			= UserName}], 'Multiple-Services-Credit-Control' = [#'3gpp_ro_Multiple-Services-Credit-Control'{'Requested-Service-Unit' = [#'3gpp_ro_Requested-Service-Unit'{'CC-Time'
  -			= AcctSessionTime, 'CC-Input-Octets' = AcctInputOctets, 'CC-Output-Octets' = AcctOutputOctets}]}], 'Service-Information' = [{'3gpp_ro_Service-Information', [],
  -			[#'3gpp_ro_IMS-Information'{'Calling-Party-Address' = ocs_test_lib:mac(), 'Called-Party-Address' = ocs_test_lib:mac()}]}]},
  -	ocs_log:acct_log(diameter, Server, Type, Record, undefined, undefined),
  +	ok = fill_acct(10, diameter),
   	receive
   		{disk_log, _Node, ocs_acct, {wrap, 0}} ->
   			fill_acct();
   		{disk_log, _Node, ocs_acct, {wrap, N}} when N > 0 ->
  -% checking on more than a full log
  -			fill_acct(9, diameter);
  -% checking on full log
  -%			ok;
  +			LogInfo = disk_log:info(ocs_acct),
  +			{items, Items} = lists:keyfind(items, 1, LogInfo),
  +			fill_acct(Items div 4, diameter);
   		_Other ->
   			fill_acct()
   	after
   		0 ->
   			fill_acct()
  +	end.
  +fill_acct(N) ->
  +	ok = fill_acct(10, diameter),
  +	receive
  +		{disk_log, _Node, ocs_acct, {wrap, 0}} ->
  +			LogInfo = disk_log:info(ocs_acct),
  +			{current_file, File} = lists:keyfind(current_file, 1, LogInfo),
  +			case N > File of
  +				true ->
  +					fill_acct(N);
  +				false ->
  +					ok
  +			end;
  +		_Other ->
  +			fill_acct(N)
  +	after
  +		0 ->
  +			fill_acct(N)
   	end.
   fill_acct(0, _Protocal) ->
   	ok;
  
positive.code: 				false
  	end,
  	true = Find(Find, disk_log:chunk(ocs_auth, start)).
  
  radius_log_acct_event() ->
     [{userdata, [{doc, "Log a RADIUS accounting event"}]}].
  
  radius_log_acct_event(_Config) ->
  	Start = erlang:system_time(?MILLISECOND),
  
negative.code: 	[radius_log_auth_event, diameter_log_auth_event,
  			radius_log_acct_event, diameter_log_acct_event,
  			ipdr_log, get_range, get_last, auth_query, acct_query_radius,
  			acct_query_diameter, abmf_log_event, abmf_query, binary_tree_before,
  			binary_tree_after, binary_tree_backward, binary_tree_forward,
  			binary_tree_last, binary_tree_first, binary_tree_half].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  