tests/testthat/test-function-flatten_tree.R

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

test_that("flatten_tree() works", {

  f <- kwb.fakin:::flatten_tree

  expect_error(f())

  paths <- c("a/b", "a/c", "a/d/e/f")

  capture.output(tree <- kwb.fakin:::to_tree(paths))

  expect_identical(f(paths), paths)
  expect_identical(f(tree), paths)
})