tests/testthat/test-collection-properties.R

In poissonconsulting/fwapgr: Client for BC Freshwater Atlas fwapg API

test_that("fwa_collection_properties works", {
  rlang::local_options(nocache = TRUE)

  properties <- fwa_collection_properties("whse_basemapping.fwa_stream_networks_sp")
  expect_s3_class(properties, "tbl_df")
})

test_that("fwa_collection_properties haven't changed for stream networks", {
  rlang::local_options(nocache = TRUE)

  properties <- fwa_collection_properties("whse_basemapping.fwa_stream_networks_sp")
  expect_snapshot_data(properties, "properties")
})