tests/testthat/test-gisco_get_grid.R

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

test_that("Grid offline", {
  expect_error(gisco_get_grid(resolution = 24))
  expect_error(gisco_get_grid(spatialtype = "9999"))
})

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

  # Warnings due to issues with the GPKG driver
  gdef <- suppressWarnings(gisco_get_grid())
  expect_s3_class(gdef, "sf")
  expect_silent(g100 <- suppressWarnings(gisco_get_grid(100)))
  expect_s3_class(g100, "sf")
  expect_message(g100 <- suppressWarnings(gisco_get_grid(100, verbose = TRUE)))
  expect_s3_class(g100, "sf")
  expect_message(suppressWarnings(
    gisco_get_grid(100,
      spatialtype = "POINT",
      verbose = TRUE
    )
  ))
})

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