tests/testthat/test-function-subtree_for_treejack.R

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

test_that("subtree_for_treejack() works", {

  f <- function(...) {
    capture.output(result <- kwb.fakin:::subtree_for_treejack(...))
    result
  }

  expect_error(f())

  expect_error(f(system.file(package = "kwb.fakin")))

  f("root", paths = c("root/a/b", "root/a/c"), stdout = TRUE)
  f("root", paths = c("root/a/b", "root/a/c"), stdout = FALSE)
})