tests/testthat/test-atom_ad_db.R

In CatastRo: Interface to the API 'Sede Electronica Del Catastro'

test_that("Test atom ad", {
  skip_on_cran()
  skip_if_offline()
  expect_message(catr_atom_get_address_db_all(
    verbose = TRUE,
    cache_dir = tempdir()
  ))
  expect_invisible(catr_atom_get_address_db_to(
    to = "aaaana",
    cache_dir = tempdir()
  ))
  expect_message(
    catr_atom_get_address_db_to(to = "aaaana", cache_dir = tempdir()),
    "No Territorial office found for aaaana"
  )
  expect_true(is.na(catr_atom_get_address_db_to(
    to = "aaaana",
    cache_dir = tempdir()
  )))
  expect_message(catr_atom_get_address_db_to(
    to = "Melilla", verbose = TRUE,
    cache_dir = tempdir()
  ))
  expect_s3_class(
    catr_atom_get_address_db_to(to = "Melilla", cache_dir = tempdir()),
    "tbl"
  )
})