tests/testthat/test-rmdOutput.R

testthat::test_that("Rmd outputs as expected", {
  testthat::expect_no_warning(
    testthat::expect_no_error(
      suppressMessages(capture_output(rmarkdown::render(testthat::test_path("ext/TestMessages.Rmd"))))
    )
  )
  testthat::expect_snapshot_file(testthat::test_path("ext/TestMessages.html"))
})
bedatadriven/activityinfo-R documentation built on Dec. 21, 2024, 8:23 a.m.