anchor.diff:      ?assertEqual({ok, {"/dev", 10240, 2}},
                    extract_disk_stats_for_path(DiskSupStats, "/dev")).
   
  -bucket_databases_test() ->
  +mk_is_bucket_database_predicate_test() ->
  +    Pred = mk_is_bucket_database_predicate(<<"default">>),
  +
       AllDBs = lists:map(fun list_to_binary/1,
                              ["_users",
                               "_replicator",
  
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:                                   "default/3"]),
  
      ?assertEqual(DefaultBucketDBs,
                   lists:filter(Pred, AllDBs)).
  
  -endif.
  
  