tests/testthat/test-atom_bu.R

In rOpenSpain/CatastRoNav: Interface to the 'INSPIRE' services of 'Catastro de Navarra'

test_that("ATOM Buildings", {
  skip_on_cran()
  skip_if_offline()

  expect_message(catrnav_atom_get_buildings("xyxghx"))

  s <- catrnav_atom_get_buildings("061", verbose = TRUE)

  expect_s3_class(s, "sf")
})