tests/testthat/test-gisco_get_healthcare.R

In dieghernan/giscoR: Download Map Data from GISCO API - Eurostat

test_that("Healthcare online", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_silent(gisco_get_healthcare())
  expect_silent(gisco_get_healthcare(country = "Spain"))
  expect_message(gisco_get_healthcare(verbose = TRUE))
})

test_that("Offline", {
  options(giscoR_test_offline = TRUE)
  expect_message(
    n <- gisco_get_healthcare(update_cache = TRUE),
    "not reachable"
  )
  expect_null(n)
  options(giscoR_test_offline = FALSE)
})