tests/testthat/test-providers_data.R

In leaflet.providers: Leaflet Providers

testthat::test_that("providers_data structure", {
  testthat::expect_gt(length(providers_data), 150)

  testthat::expect_true(!is.null(providers_data[["OpenStreetMap"]]))
})

testthat::test_that("providers_details structure", {
  testthat::expect_gt(length(providers_details_data), 25)

  testthat::expect_true(!is.null(providers_details_data[["OpenStreetMap"]]))

  testthat::expect_true(!is.null(providers_details_data[["OpenStreetMap"]][["url"]]))
  testthat::expect_true(!is.null(providers_details_data[["OpenStreetMap"]][["variants"]]))
  testthat::expect_true(!is.null(providers_details_data[["OpenStreetMap"]][["options"]]))

  testthat::expect_true(!is.null(providers_details_data[["OpenStreetMap"]][["variants"]]["Mapnik"]))

  # 2023-10-05: leaflet-providers no longer uses subdomains for OpenStreetMap
  # see https://github.com/leaflet-extras/leaflet-providers/pull/472
  testthat::expect_equal(
    providers_details_data[["OpenStreetMap"]][["url"]],
    "https://tile.openstreetmap.org/{z}/{x}/{y}.png"
  )
})