tests/testthat/test-function-report_about_r_scripts.R

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

testthat::skip_on_appveyor()

test_that("report_about_r_scripts() works", {

  f <- kwb.fakin:::report_about_r_scripts

  expect_error(f())

  capture.output(
    result <- f(
      root = system.file("extdata", package = "kwb.fakin"),
      show = FALSE
    )
  )
})