tests/testthat/test-figure.R

In r-lib/pkgdown: Make Static HTML Documentation for a Package

test_that("can override defaults in _pkgdown.yml", {
  skip_if_no_pandoc()
  local_edition(3)
  withr::local_temp_libpaths()

  pkg <- local_pkgdown_site(test_path("assets/figure"))

  callr::rcmd("INSTALL", pkg$src_path, show = FALSE, fail_on_status = TRUE)

  expect_snapshot(build_reference(pkg, devel = FALSE))
  img <- path_file(dir_ls(path(pkg$dst_path, "reference"), glob = "*.jpg"))
  expect_setequal(img, c("figure-1.jpg", "figure-2.jpg"))

  expect_snapshot(build_articles(pkg))
  img <- path_file(dir_ls(path(pkg$dst_path, "articles"), glob = "*.jpg", recurse = TRUE))
  expect_equal(img, "unnamed-chunk-1-1.jpg")
})