tests/testthat/test-use_xaringan.R

In emptyfield-ds/opensky: Templates for 'ggplot2' and 'R Markdown'

test_that("use_xaringan_kakashi()", {
  withr::local_options(usethis.quiet = TRUE)
  local_temp_dir()
  local_proj_set()

  with_mock(
    check_installed = function(...) TRUE,
    use_xaringan_kakashi("kakashi", open = FALSE)
  )

  expect_snapshot_file("kakashi.Rmd")
})

test_that("use_xaringan_tozan()", {
  withr::local_options(usethis.quiet = TRUE)
  local_temp_dir()
  local_proj_set()

  with_mock(
    check_installed = function(...) TRUE,
    use_xaringan_tozan("tozan", open = FALSE)
  )

  expect_snapshot_file("tozan.Rmd")
})