anchor.diff:                              "default/0",
                               "default/1",
                               "default/2",
  -                            "default/3"]),
  +                            "default/3",
  +                            "db/master",
  +                            "db/0",
  +                            "db/1",
  +                            "db/2",
  +                            "db/3"]),
       DefaultBucketDBs = lists:map(fun list_to_binary/1,
                                    ["default/master",
                                     "default/0",
  
positive.code:     SortedList = lists:sort(LessEqFn, StatsList),
      extract_disk_stats_for_path_rec(SortedList, Path).
  
  bucket_databases(Bucket) ->
      {ok, AllDBs} = couch_server:all_databases(),
      bucket_databases(Bucket, AllDBs).
  
  bucket_databases(Bucket, AllDBs) ->
      BinBucket = list_to_binary(Bucket ++ "/"),
      N = byte_size(BinBucket),
      Pred = fun (Db) ->
                     try
                         Prefix = binary:part(Db, 0, N),
                         Prefix =:= BinBucket
                     catch
                         _E:_R ->
                             false
                     end
             end,
      lists:filter(Pred, AllDBs).
  
  delete_database(DB) ->
      RV = couch_server:delete(DB, []),
  
negative.code:     ?assertEqual({ok, {"/dev", 10240, 2}},
                   extract_disk_stats_for_path(DiskSupStats, "/dev")).
  
  mk_is_bucket_database_predicate_test() ->
      Pred = mk_is_bucket_database_predicate(<<"default">>),
  
      AllDBs = lists:map(fun list_to_binary/1,
                             ["_users",
                              "_replicator",
  