tests/testthat/test-esp_get_roads.R

In dieghernan/mapSpain: Administrative Boundaries of Spain

test_that("roads online", {
  expect_error(esp_get_roads(epsg = 3367))

  skip_on_cran()
  skip_if_siane_offline()

  expect_silent(esp_get_roads())

  l <- esp_get_roads(epsg = 3857)

  expect_identical(sf::st_crs(l), sf::st_crs(3857))
  expect_silent(esp_get_roads(moveCAN = FALSE))
  expect_silent(esp_get_roads(moveCAN = TRUE))
  expect_silent(esp_get_roads(moveCAN = c(2, 2)))
})