anchor.diff:  	NumItems = (FileSize div EventSize) * 5,
   	Start = erlang:system_time(?MILLISECOND),
   	Sid = <<"10.170.6.80;1532594780;734917;4889089">>,
  -	Record = #'3gpp_ro_CCR'{'Session-Id' = Sid},
  +	OriginHost = <<"10.0.0.1">>,
  +	OriginRealm = <<"ap14.sigscale.net">>,
  +	EventTimeStamp = [ocs_log:date(erlang:system_time(milli_seconds))],
  +	Record = #'3gpp_ro_CCR'{'Session-Id' = Sid, 'Origin-Host' = OriginHost,
  +			'Origin-Realm' = OriginRealm, 'Event-Timestamp' = EventTimeStamp},
   	ok = fill_acct(NumItems, diameter),
   	ok = ocs_log:acct_log(diameter, Server, start, Record, undefined, undefined),
   	ok = fill_acct(rand:uniform(2000), diameter),
  
positive.code: 	ok = ocs_log:acct_log(diameter, Server, stop, Record, undefined, undefined),
  	ok = fill_acct(rand:uniform(2000), diameter),
  	End = erlang:system_time(?MILLISECOND),
  	MatchSpec = [{#'3gpp_ro_CCR'{'Session-Id' = '$1'}, [{'==', '$1', Sid}], ['$_']}],
  	Fget = fun(_F, {eof, Events}, Acc) ->
  				lists:flatten(lists:reverse([Events | Acc]));
  			(F, {Cont, Events}, Acc) ->
  
negative.code: 						[accept], MatchReq, '_'), []),
  	3 = length(Events).
  
  acct_query_radius() ->
     [{userdata, [{doc, "Get matching accounting log events"}]}].
  
  acct_query_radius(_Config) ->
  	Server = {{0,0,0,0}, 1812},
  	Username = ocs:generate_identity(),
  	ClientAddress = {10,0,0,1},
  