anchor.diff:  	[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, start_binary_tree].
  +			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
  
positive.code: 	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),
  	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;
  		_Other ->
  			fill_acct()
  	after
  		0 ->
  			fill_acct()
  	end.
  fill_acct(0, _Protocal) ->
  	ok;
  
negative.code: 				false
  	end,
  	true = Find(Find, disk_log:chunk(ocs_auth, start)).
  
  radius_log_acct_event(_Config) ->
  	Start = erlang:system_time(?MILLISECOND),
  