tests/testthat/test-rmarkdown.R

In jayhesselberth/pkgdown-search: Make Static HTML Documentation for a Package

context("build_article")

test_that("render_rmarkdown copies image files in subdirectories", {
  tmp <- tempfile()
  expect_output(
    render_rmarkdown(
      list(src_path = test_path(), dst_path = tmp),
      "vignette-with-img.Rmd",
      "articles/vignette-with-img.html"
    )
  )
  expect_equal(
    path_rel(dir_ls(tmp, type = "file", recursive = TRUE), tmp),
    c("articles/open-graph/logo.png", "articles/vignette-with-img.html")
  )
})