tests/testthat/test-remote.R

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

context("remote")

test_that("remote_package_url discovers pkgdown site", {
  scoped_package_context("test")

  expect_equal(
    remote_package_reference_url("pkgdown"),
    "http://pkgdown.r-lib.org/reference"
  )
})

test_that("remote_package_url returns null in error scenarios", {
  scoped_package_context("test")

  expect_equal(remote_package_reference_url("DOESNOTEXIST"), NULL)
  # no urls
  expect_equal(remote_package_reference_url("cluster"), NULL)
  # not a pkgdown site
  expect_equal(remote_package_reference_url("MASS"), NULL)
})