tests/testthat/test-utils.R

test_that("pkgdown.internet can be set and read", {
  options(pkgdown.internet = FALSE)
  expect_false(has_internet())
})

test_that("is_internal_link() works", {
  pkg = list(meta = list(url = "https://pkgdown.r-lib.org"))
  expect_false(is_internal_link("https://github.com", pkg = pkg))
  expect_false(is_internal_link("http://github.com", pkg = pkg))
  expect_true(is_internal_link("https://pkgdown.r-lib.org/articles", pkg = pkg))
  expect_true(is_internal_link("reference/index.html", pkg = pkg))
  expect_true(
    all.equal(
      is_internal_link(
        c("reference/index.html", "https://github.com"),
        pkg = pkg
      ),
      c(TRUE, FALSE)
    )
  )
})
r-lib/pkgdown documentation built on April 13, 2025, 2:12 a.m.