test_that("Test null giscoR", {
  skip_on_cran()
  skip_if_siane_offline()
  skip_if_gisco_offline()

  local_fun <- esp_get_nuts
  local_mocked_bindings(esp_get_nuts = function(...) {
    NULL
  })
  local_mocked_bindings(is_online_fun = function(...) {
    FALSE
  })

  n <- esp_get_ccaa(update_cache = TRUE, verbose = TRUE)

  expect_null(n)

  local_mocked_bindings(is_online_fun = function(...) {
    httr2::is_online()
  })
  local_mocked_bindings(esp_get_nuts = local_fun)
})

test_that("CCAA", {
  skip_on_cran()
  skip_if_siane_offline()
  skip_if_gisco_offline()

  expect_snapshot(error = TRUE, esp_get_ccaa("FFF"))
  expect_snapshot(n <- esp_get_ccaa(c("FFF", "Murcia")))
  expect_equal(nrow(n), 1)
  expect_s3_class(n, "sf")
  expect_s3_class(n, "tbl_df")

  expect_silent(n <- esp_get_ccaa())
  expect_equal(nrow(n), 19)
  expect_s3_class(n, "sf")
  expect_s3_class(n, "tbl_df")

  expect_silent(n <- esp_get_ccaa(ccaa = c("Galicia", "ES7", "Centro")))
  expect_equal(nrow(n), 5)
  expect_s3_class(n, "sf")
  expect_s3_class(n, "tbl_df")
  expect_snapshot(error = TRUE, esp_get_ccaa(ccaa = "Zamora"))
  expect_snapshot(error = TRUE, esp_get_ccaa(ccaa = "ES6x"))

  # Test all

  f <- mapSpain::esp_codelist

  n <- esp_get_ccaa(ccaa = f$nuts1.code)
  expect_equal(nrow(n), 19)

  n <- esp_get_ccaa(ccaa = "Melilla")
  expect_equal(nrow(n), 1)

  n <- esp_get_ccaa(ccaa = f$nuts1.name.alt)
  expect_equal(nrow(n), 19)

  n <- esp_get_ccaa(ccaa = f$iso2.ccaa.code)
  expect_equal(nrow(n), 19)

  n <- esp_get_ccaa(ccaa = f$nuts2.code)
  expect_equal(nrow(n), 19)

  n <- esp_get_ccaa(ccaa = f$nuts2.name)
  expect_equal(nrow(n), 19)

  n <- esp_get_ccaa(ccaa = f$codauto)
  expect_equal(nrow(n), 19)
})