anchor.diff:                 bench:increment(1, 1000)
             end),
       Return = tester:test(api_tx, get_system_snapshot, 0, 200),
  -    ct:pal("tester return: ~p ~n",[Return]),
  +    ct:pal("tester return: ~p ~n", [Return]),
       util:wait_for_process_to_die(SpamPid1),
       ok.
   
  
positive.code: -spec test_lock_counting_on_live_db(any()) -> ok.
  test_lock_counting_on_live_db(_) ->
      Db = ?TEST_DB:new(),
      Entry = db_entry:new("foo","bar",0),
      WriteLockEntry = db_entry:set_writelock(Entry,1),
      NewDB = {_,_,{_,LiveLC,_SnapLC}} = ?TEST_DB:set_entry(Db,WriteLockEntry),
      ?equals(LiveLC,1),
      {_,_,{_,NewLiveLC,_}} = ?TEST_DB:set_entry(NewDB,Entry),
      ?equals(NewLiveLC,0),
      ok.
      
  
  
negative.code:     
      % get a final snapshot and print it
      Snap = api_tx:get_system_snapshot(),
      ?equals_pattern(Snap, [{_, _, _}, {_, _, _}]),
      ct:pal("snapshot: ~p~n", [Snap]),
      ok.
  
  -spec do_transaction_a(number()) -> any().
  do_transaction_a(_I) ->
      %% ct:pal("spaming transaction_a...~p", [I]),
      api_tx:req_list([{read, "B"}, {write, "A", randoms:getRandomInt()}, {write, "B", randoms:getRandomInt()}, {commit}]).
  
  -spec do_transaction_b(number()) -> any().
  do_transaction_b(_I) ->
      %% ct:pal("spaming transaction_b...~p", [I]),
      api_tx:req_list([{read, "A"}, {write, "B", randoms:getRandomInt()}, {write, "A", randoms:getRandomInt()}, {commit}]).
  
  -spec bench_increment(any()) -> ok.
  bench_increment(_) ->
  