tests/testthat/test-function-writePathsToFiles.R

test_that("writePathsToFiles() works", {

  f <- kwb.fakin:::writePathsToFiles

  expect_error(f())

  xall <- list(
    c("a", "b", "c"),
    c("d", "e", "f")
  )

  file <- tempfile(fileext = ".txt")

  capture.output(f(xall, file = file))
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.