tests/testthat/test-gisco-check-access.R

In giscoR: Download Map Data from GISCO API - Eurostat

test_that("Access", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_true(gisco_check_access())
})

test_that("On CRAN", {
  skip_on_cran()
  skip_if_gisco_offline()

  # Imagine we are in CRAN
  env_orig <- Sys.getenv("NOT_CRAN")
  Sys.setenv("NOT_CRAN" = "false")
  expect_true(on_cran())
  expect_false(gisco_check_access())

  # Restore
  Sys.setenv("NOT_CRAN" = env_orig)
  expect_identical(Sys.getenv("NOT_CRAN"), env_orig)
  expect_true(gisco_check_access())
})