tests/testthat/test-get_maptypes.R

In basemaps: Accessing Spatial Basemaps in R

skip_on_cran()
context("get_maptypes")

test_that("get_maptypes()", {
  expect_named(expect_is(expect_length(get_maptypes(), 8), "list"), c("osm", "osm_stamen", "osm_stadia", "osm_thunderforest", 
                                                                      "carto", "mapbox", "esri", "maptiler"))
  expect_is(get_maptypes("osm"), "character")
})