anchor.diff:      true.
   
   test_get(Data, Backend) ->
  +    {DB1, ScrubedData} =
  +                         write_scrubed_to_db(Backend:new(randoms:getRandomString()),
  +                                             Data, Backend),
  +    GetData = lists:foldl(
  +            fun(Entry, AccIn) ->
  +                [Backend:get(DB1, element(1, Entry)) | AccIn]
  +            end, [], ScrubedData),
  +    ?equals_w_note(lists:sort(ScrubedData), lists:sort(GetData), "check_db_put1_"
  +                   ++ atom_to_list(Backend)),
  +    check_db(DB1, GetData, Backend, "check_db_put1_" ++ atom_to_list(Backend)),
  +    Backend:close(DB1),
       true.
   
   tester_get(_Config) ->
  
positive.code: 
  %% @author Jan Fajerski <fajerski@zib.de>
  %% @doc    Unit tests for db backends that fullfill src/backend_beh.erl.
  %% @end
  %% @version $Id$
  -module(db_backend_SUITE).
  
  -author('kruber@zib.de').
  -vsn('$Id$').
  
  -compile(export_all).
  
negative.code: end_per_suite(Config) ->
      unittest_helper:end_per_suite(Config).
  
  %% add backend name to list
  backends() ->
      [db_ets].
  
  