anchor.diff:           fun() -> t15(Backend) end]).
   
   leveldb_dont_keep_test_() ->
  -  ?dont_keep(mk_setup(leveldb,false)).
  +  ?dont_keep(mk_setup(leveldb)).
   
   ets_dont_keep_test_() ->
  -  ?dont_keep(mk_setup(ets,false)).
  +  ?dont_keep(mk_setup(ets)).
   
   ets_keep_test_() ->
  -  ?keep_db(ets).
  +  ?keep_db(mk_setup(ets)).
   
   leveldb_keep_test_() ->
  -  ?keep_db(leveldb).
  -
  -mk_setup(Backend,KeepDB) ->
  -  fun() ->
  -      application:set_env(rets,keep_db,KeepDB),
  -      restart_rets(Backend)
  +  ?keep_db(mk_setup(leveldb)).
  +
  +mk_setup(Backend) ->
  +  fun(reset) ->
  +      application:set_env(rets,keep_db,false),    % delete old database files
  +      restart_rets(Backend);
  +     (keep) ->
  +      application:set_env(rets,keep_db,true),     % keep old database files
  +      restart_rets(Backend);
  +     (backend) ->
  +      Backend
     end.
   
   t00(SETUP) ->
  -  SETUP(),
  +  SETUP(reset),
     ?assertEqual({200,false},
                  rets_client:delete(localhost,tibbe)),
     ?assertEqual({200,true},
  
positive.code:                rets_client:get(localhost,tibbe,"ddd")).
  
  t01(SETUP) ->
    SETUP(),
    ?assertEqual({200,true},
                 rets_client:put(localhost,tibbe)),
    ?assertEqual({200,true},
  
negative.code:                rets_client:get(localhost,tibbe)).
  
  t07(SETUP) ->
    SETUP(reset),
    ?assertEqual({404,"no_such_table"},
                 rets_client:get(localhost,tibbe)),
    ?assertEqual({200,true},
  