anchor.diff:      end, 0, DbNames),
   
       ?_assertEqual(NumDeleted, 6).
  +
  +should_create_delete_database_continuously() ->
  +    DbName = ?tempdb(),
  +    {ok, Db} = couch_db:create(DbName, []),
  +    couch_db:close(Db),
  +    [{timeout, ?TIMEOUT, {integer_to_list(N) ++ " times",
  +                           ?_assert(loop(DbName, N))}}
  +     || N <- [10, 100, 1000]].
  +
  +loop(_, 0) ->
  +    true;
  +loop(DbName, N) ->
  +    ok = cycle(DbName),
  +    loop(DbName, N - 1).
  +
  +cycle(DbName) ->
  +    ok = couch_server:delete(DbName, []),
  +    {ok, Db} = couch_db:create(DbName, []),
  +    couch_db:close(Db),
  +    ok.
  
positive.code:                 [should_create_db(),
                   should_delete_db(),
                   should_create_multiple_dbs(),
                   should_delete_multiple_dbs()]
              end
          }
      }.
  
negative.code: 
  -include("couch_eunit.hrl").
  
  -define(TIMEOUT, 120).
  
  
  setup() ->
      {ok, _} = couch_server_sup:start_link(?CONFIG_CHAIN),
      couch_config:set("log", "include_sasl", "false", false),
      ok.
  
  teardown(_) ->
  