tests/testthat/test-build-home-community.R

In pkgdown: Make Static HTML Documentation for a Package

test_that("handles CoC and SUPPORT if present", {
  # .github is build-ignored to prevent a NOTE about unexpected hidden directory
  # so need to skip when run from R CMD check
  skip_if_not(dir_exists(test_path("assets/site-dot-github/.github")))

  pkg <- as_pkgdown(test_path("assets/site-dot-github"))
  expect_true(has_coc(pkg$src_path))
  expect_true(has_support(pkg$src_path))

  # And added to sidebar
  text <- data_home_sidebar_community(pkg)
  expect_snapshot_output(cat(text))
})

test_that("empty site doesn't have community asserts", {
  expect_false(has_contributing(test_path("assets/site-empty")))
  expect_false(has_coc(test_path("assets/site-empty")))

  text <- data_home_sidebar_community(test_path("assets/site-empty"))
  expect_equal(text, "")
})