tests/testthat/test-build-favicons.R

In pkgdown: Make Static HTML Documentation for a Package

test_that("missing logo generates message", {
  pkg <- local_pkgdown_site(test_path("assets/site-empty"))

  expect_error(
    expect_output(build_favicons(pkg)),
    "Can't find package logo"
  )
})

test_that("existing logo generates message", {
  pkg <- local_pkgdown_site(test_path("assets/site-favicons"))

  expect_true(has_favicons(pkg))
  expect_snapshot(build_favicons(pkg))
})