tests/testthat/test-documentation.R

In ColOpenData: Download Colombian Demographic, Climate and Geospatial Data

test_that("List datasets errors are thrown", {
  # Expect error when category does not exist
  expect_error(list_datasets(module = "dem", language = "EN"))

  # Expect error when language does not exist
  expect_error(list_datasets(module = "demographic", language = "FR"))
})

test_that("List datasets works as expected", {
  # Expect that output has a data.frame structure for a proper request
  expect_s3_class(
    list_datasets(module = "geospatial", language = "ES"),
    "data.frame"
  )

  # Expect specific dataset from a proper request
  expect_snapshot(list_datasets(module = "geospatial", language = "EN"))
})

test_that("Dictionary errors are thrown", {
  # Expect error when spatial_level does not exist
  expect_error(geospatial_dictionary(
    spatial_level = "DANE_MGN_2018_MPIO",
    language = "EN"
  ))

  # Expect error when language does not exist
  expect_error(geospatial_dictionary(
    spatial_level = "DANE_MGN_2018_MPIO",
    language = "IT"
  ))
})

test_that("Dictionary works as expected", {
  # Expect specific dataset from a proper request
  expect_snapshot(geospatial_dictionary(
    spatial_level = "mpio",
    language = "EN"
  ))
})

test_that("Climate tags errors are thrown", {
  # Expect error when language does not exist
  expect_error(get_climate_tags(language = "DE"))
})

test_that("Climate tags works as expected", {
  # Expect specific dataset from a proper request
  expect_snapshot(get_climate_tags(language = "ES"))
})

test_that("Lookup errors are thrown", {
  # Expect error when keywords is not a character
  expect_error(look_up(keywords = 0L))

  # Expect error when keywords are not found in any dataset
  expect_error(look_up(keywords = "dog"))

  # Expect error when logic is TRUE or FALSE (as presented in documentation, it
  # will respond to "and" / "or")
  expect_error(look_up(keywords = "households", logic = TRUE))
  expect_error(look_up(keywords = "households", logic = "nor"))

  # Expect error when module does not exist
  expect_error(look_up(keywords = "households", module = "population"))

  # Expect error when language does not exist
  expect_error(look_up(keywords = "households", language = "PT"))
})

test_that("Lookup works as expected", {
  # Expect that output has a data.frame structure for a proper request
  expect_s3_class(
    look_up(keywords = "school", logic = "or", language = "ES"),
    "data.frame"
  )
})

test_that("Lookup works as expected with different parameters", {
  # Expect specific dataset from a proper request
  expect_snapshot(look_up(
    keywords = c("school", "age"), logic = "and",
    language = "EN"
  ))
})