anchor.diff:              fun(Entry, AccIn) ->
                   [?TEST_DB:get(DB1, element(1, Entry)) | AccIn]
               end, [], ScrubbedData),
  -    ?equals_w_note(lists:sort(ScrubbedData), lists:sort(GetData), "check_db_put1"),
  +    compare_lists(ScrubbedData, GetData, "check_db_put1"),
       check_db(DB1, GetData, "check_db_put1"),
       ?TEST_DB:?CLOSE(DB1),
       true.
  
positive.code:                             andalso is_float(element(1, B))
                              andalso element(1, A) == element(1, B))
                end,
      lists:usort(SortFun, Data).
  
  check_db(DB, ExpData, Note) ->
      InDb = ?TEST_DB:foldl(DB, fun(K, AIn) -> [?TEST_DB:get(DB, K) | AIn] end, []),
      ?equals_w_note(lists:sort(InDb), lists:sort(ExpData), Note),
      ?equals_w_note(?TEST_DB:get_load(DB), length(ExpData), Note).
  
  is_in({Key}, OtherKey) -> Key ?EQ OtherKey;
  is_in(all, _Key) -> true;
  
negative.code:     DB1 = lists:foldl(
              fun(Entry, DBAcc) ->
                  ?TEST_DB:put(DBAcc, Entry)
              end, DB, Data),
      {DB1, ScrubbedData}.
  
  scrub_data(Data) ->
  