anchor.diff:      true.
   
   test_delete(Data, ToDelete, Backend) ->
  -    DB = Backend:new(randoms:getRandomString()),
  -    ScrubedData = scrub_data(Data),
  -    DB1 = lists:foldl(
  -            fun(Entry, DBAcc) ->
  -                Backend:put(DBAcc, Entry)
  -            end, DB, ScrubedData),
  +    {DB1, ScrubedData} =
  +                         write_scrubed_to_db(Backend:new(randoms:getRandomString()),
  +                                             Data, Backend),
       DB2 = lists:foldl(
               fun(Key, DBAcc) ->
                   Backend:delete(DBAcc, Key)
  
positive.code:             fun(Key, AccIn) ->
                  lists:keydelete(Key, 1, AccIn)
              end, ScrubedData, ToDelete),
      check_db(DB2, ExpData, Backend, "check_db_put1" ++ atom_to_list(Backend)),
      Backend:close(DB2),
      true.
  
  
negative.code: 
  %% @author Jan Fajerski <fajerski@zib.de>
  %% @doc    Unit tests for db backends that fullfill src/backend_beh.erl.
  %%         Additional backends should be added to backends() to be tested.
  %% @end
  %% @version $Id$
  -module(db_backend_SUITE).
  
  -author('fajerski@zib.de').
  -vsn('$Id$').
  
  -compile(export_all).
  