test_that("pkgdown.internet can be set and read", {
options(pkgdown.internet = FALSE)
expect_false(has_internet())
})
test_that("cran_unquote works", {
expect_equal(cran_unquote("Quoting is CRAN's thing."),
"Quoting is CRAN's thing.")
expect_equal(cran_unquote("'R-hub' is great!"),
"R-hub is great!")
expect_equal(cran_unquote("From 'README' to 'html' with 'pkgdown'"),
"From README to html with pkgdown")
})
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)
)
)
})
Generated by dwww version 1.15 on Wed Jun 26 01:31:41 CEST 2024.