xaringanthemer/tests/testthat/test-utils.R

test_that("printing google_font works", {
  expect_snapshot(
    google_font("Josefin Sans", "400", "400i", "600i", "700")
  )
})

test_that("requires_package()", {
  expect_true(requires_package("purrr"))
  expect_error(requires_package("notapackage", "myFunction"), "myFunction")
  expect_warning(expect_false(requires_package("notapackage", required = FALSE)))
})