tests/testthat/test-collections.R

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

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

  collections <- fwa_collections()
  expect_s3_class(collections, "tbl_df")
  expect_identical(names(collections), c("collection_id", "description", "extent", "links"))
})

test_that("fwa_collections collection_id values haven't changed", {
  rlang::local_options(nocache = TRUE)

  collections <- fwa_collections()
  expect_snapshot_data(collections["collection_id"], "collections")
})