tests/testthat/test-pkgdown.R

In subugoe/muggle: Opinionated Devops for R Data Products Strictly Without Magic

test_that("public url is correctly inferred", {
  local_create_package()
  desc::desc_set_urls(c(
    "https://subugoe.github.io/muggle",
    "https://github.com/subugoe/muggle",
    "https://www.google.com"
  ))
  expect_equal(get_url_from_desc(), "https://subugoe.github.io/muggle")
})