anchor.diff:  
   scrub_data(Data) ->
       %% Entries should be unique
  -    SortFun = fun(A, B) -> element(1, A) =< element(1, B) end,
  +    SortFun = fun(A, B) -> (element(1, A) < element(1, B)) or
  +                           (element(1, A) ?EQ element(1, B)) end,
       lists:usort(SortFun, [Entry || Entry <- Data]).
   
   check_db(DB, ExpData, Note) ->
       InDb = ?TEST_DB:foldl(DB, fun(E, AIn) -> [E | 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({element, Key}, OtherKey) -> Key ?EQ OtherKey;
  +is_in(all, _Key) -> true;
  +is_in({interval, '(', L, R, ')'}, Key) -> Key > L andalso Key < R;
  +is_in({interval, '(', L, R, ']'}, Key) -> Key > L andalso ((Key < R) or (Key ?EQ R));
  +is_in({interval, '[', L, R, ')'}, Key) -> ((Key > L) or (Key ?EQ L)) andalso Key < R;
  +is_in({interval, '[', L, R, ']'}, Key) -> ((Key > L) or (Key ?EQ L)) andalso ((Key < R) or (Key ?EQ R)).
  
positive.code: %% @author Jan Fajerski <fajerski@zib.de>
  %% @doc    Unit tests for db backends that fullfill src/backend_beh.erl.
  %%         just define ?TEST_DB and include this file.
  %% @end
  %% @version $Id$
  
  -include("scalaris.hrl").
  -include("unittest.hrl").
  
  tests_avail() ->
      [tester_put,
  
negative.code:             fun(Key, DBAcc) ->
                  ?TEST_DB:delete(DBAcc, Key)
              end, DB1, ToDelete),
      ExpData = lists:filter(
                  fun(El) ->
                          not lists:any(fun(Key) ->
                                            element(1, El) ?EQ Key
                                    end, ToDelete)
                  end, ScrubedData),
      check_db(DB2, ExpData, "check_db_delete"),
      ?TEST_DB:close(DB2),
      true.
  
  