tests/testthat/helper-requireNamespace-mock.R

In pdil/usmap: US Maps Including Alaska and Hawaii

# Mocks `requireNamespace` to return `FALSE` for
# provided dependency package "pkg" to test that
# error occurs when it's not installed.
expect_package_error <- function(pkg, code, msg) {
  testthat::with_mocked_bindings({
    testthat::expect_error(code, paste0("`", pkg, "` must be installed"))
  },
  requireNamespace = function(package, ...) package != pkg,
  .package = "base"
  )
}