anchor.diff:  %% @private
   -spec measure_infinite_log_listings_time(atom(), binary(), map(), integer()) -> {term(), integer()}.
   measure_infinite_log_listings_time(Model, LogId, ListOpts, ListingsPerProcess) ->
  -    {Time, Resp} = measure_execution_time(
  +    measure_execution_time(
           fun() ->
               lists:foreach(fun(_) ->
                   Model:infinite_log_list(LogId, ListOpts)
               end, lists:seq(1, ListingsPerProcess))
           end
  -    ),
  -    {Resp, Time}.
  +    ).
   
   
   %% @private
  --spec measure_execution_time(fun(() -> term())) -> {integer(), term()}.
  +-spec measure_execution_time(fun(() -> term())) -> {term(), integer()}.
   measure_execution_time(Fun) ->
       Stopwatch = stopwatch:start(),
       Ans = Fun(),
  -    {stopwatch:read_millis(Stopwatch), Ans}.
  +    {Ans, stopwatch:read_millis(Stopwatch)}.
  
positive.code: -spec perform_infinite_log_listings(node(), atom(), binary(), map(), integer(), integer()) -> [integer()].
  perform_infinite_log_listings(Worker, Model, LogId, ListOpts, ProcCount, ListingsPerProcess) ->
      ListingFun = fun(_) ->
          Function = measure_infinite_log_listings_time,
          {_, Time} = ?assertMatch({ok, _},
              rpc:call(Worker, ?MODULE, Function, [Model, LogId, ListOpts, ListingsPerProcess])
          ),
          Time
      end,
  
negative.code:         ]}
      ]).
  
  infinite_log_append_performance_test_base(Config) ->
      ct:timetrap({hours, 3}),
      Repeats = ?config(repeats, Config),
  