tests/testthat/test-function-plot_file_distribution.R

In KWB-R/kwb.fakin: Functions Used in Our Fakin Project

test_that("plot_file_distribution() works", {

  f <- kwb.fakin:::plot_file_distribution

  expect_error(f())

  file_data <- kwb.utils::noFactorDataFrame(
    path = "a/b/c", size = 1, type = "file"
  )

  capture.output(
    expect_warning(
      f(file_data, start_path = "a", n_root_parts = 1, to_pdf = FALSE)
    )
  )
})