anchor.diff:                                 ordsets:add_element(I, Seen))
       end.
   
  -
  -file_needs_compaction(Title, DataSize, FileSize, FragThreshold, MinFileSize) ->
  -    ?log_debug("Estimated size for `~s`: data ~p, file ~p",
  -               [Title, DataSize, FileSize]),
  -
  +file_needs_compaction(DataSize, FileSize, FragThreshold, MinFileSize) ->
       case FileSize < MinFileSize of
           true ->
  -            ?log_debug("Estimated file size for `~s` is less "
  -                       "than min_file_size ~p; skipping",
  -                       [Title, MinFileSize]),
               false;
           false ->
               FragSize = FileSize - DataSize,
               Frag = round((FragSize / FileSize) * 100),
  -
  -            ?log_debug("Estimated fragmentation for `~s`: ~p bytes/~p%",
  -                       [Title, FragSize, Frag]),
   
               check_fragmentation(FragThreshold, Frag, FragSize)
       end.
  
positive.code: 
      {DataSize, FileSize} = aggregated_size_info(SampleVBucketDbs, NumVBuckets),
  
      file_needs_compaction(BucketName,
                            DataSize, FileSize, FragThreshold,
                            MinFileSize * NumVBuckets).
  
  select_samples(VBucketDbs, SampleIxs) ->
      select_samples(VBucketDbs, SampleIxs, 1, []).
  
negative.code:                     FileSize = proplists:get_value(disk_size, Info),
                      DataSize = proplists:get_value(data_size, Info, 0),
  
                      ?log_debug("`~s/~s/~s` data_size is ~p, disk_size is ~p",
                                 [BucketName, DDocId, Type, DataSize, FileSize]),
  
                      file_needs_compaction(DataSize, FileSize,
                                            FragThreshold, MinFileSize)
              end
      end.
  