anchor.diff:                  [should_create_db(),
                    should_delete_db(),
                    should_create_multiple_dbs(),
  -                 should_delete_multiple_dbs()]
  +                 should_delete_multiple_dbs(),
  +                 should_create_delete_database_continuously()]
               end
           }
       }.
  
positive.code: 
  -include("couch_eunit.hrl").
  
  
  setup() ->
      {ok, _} = couch_server_sup:start_link(?CONFIG_CHAIN),
      ok.
  
  teardown(_) ->
  
negative.code:     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.
  