tests/testthat/test-download_geospatial.R

In ColOpenData: Download Colombian Demographic, Climate and Geospatial Data

test_that("Download geospatial errors are thrown", {
  skip_on_cran()

  # Expect error on empty input
  expect_error(download_geospatial())

  # Expect error when spatial_level doe snot exist
  expect_error(download_geospatial("mpios"))

  # Expect error when both include_geom and include_cnpv are false
  expect_error(download_geospatial(
    spatial_level = "department",
    include_geom = FALSE,
    simplified = TRUE,
    include_cnpv = FALSE
  ))
})

test_that("Download geospatial works as expected", {
  skip_on_cran()

  # Expect specific dataset from a proper request (only with geometry)
  expect_snapshot(download_geospatial(
    spatial_level = "department",
    simplified = TRUE,
    include_geom = TRUE,
    include_cnpv = FALSE
  ))
})

test_that("Download geospatial works as expected with different parameters", {
  skip_on_cran()

  # Expect specific dataset from a proper request (only with census data)
  expect_snapshot(download_geospatial(
    spatial_level = "dpto",
    simplified = TRUE,
    include_geom = FALSE,
    include_cnpv = TRUE
  ))
})