tests/testthat/test-function-prepare_for_scatter_plot.R

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

test_that("prepare_for_scatter_plot() works", {

  f <- kwb.fakin:::prepare_for_scatter_plot

  expect_error(f())

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

  capture.output(f(file_data = file_data, n_root_parts = 1))
  capture.output(f(file_data = file_data, n_root_parts = 1, min_depth = 1))
  capture.output(f(file_data = file_data, n_root_parts = 1, start_path = "a"))
})

test_that("prepare_for_scatter_plot2() works", {

  f <- kwb.fakin:::prepare_for_scatter_plot2

  expect_error(f())

  capture.output(file_data <- pathlist::pathlist(
    c("a/b/c", "a/b/d", "a/c/d"),
    data = data.frame(size = 1:3, type = "file")
  ))

  file_data2 <- file_data
  file_data2@data$type <- "directory"

  f(file_data = file_data)
  expect_null(f(file_data = file_data2))
})