tests/testthat/test-edge-cases.R

In bcdata: Search and Retrieve Data from the BC Data Catalogue

context("Edge cases and catalogue peculiarities")

test_that("recods with wms but inconsistent layer_name, object_name fields work", {
  skip_if_net_down()
  skip_on_cran()
    # https://github.com/bcgov/bcdata/issues/138
  # layer_name = RSLT_PLANTING_ALL_RSLT_CF
  # object_name = WHSE_FOREST_VEGETATION.RSLT_PLANTING_SVW
  # wms uses object_name
  expect_is(bcdc_query_geodata("results-planting"), "bcdc_promise")

  # https://github.com/bcgov/bcdata/issues/129
  # layer_name = WHSE_ADMIN_BOUNDARIES.ADM_NR_DISTRICTS_SPG
  # wms uses layer_name (generalized)
  expect_message(
    expect_is(bcdc_query_geodata("natural-resource-nr-district"), "bcdc_promise"),
    "You are accessing a simplified view of the data"
  )
})