tests/testthat/test-finbif_collections.R

In finbif: Interface for the 'Finnish Biodiversity Information Facility' API

test_that("fetching collections works", {

  skip_on_cran()

  op <- options()

  cache <- tempfile()

  dir.create(cache)

  options(finbif_cache_path = cache, finbif_rate_limit = Inf)

  if (requireNamespace("vcr", quietly = TRUE)) {

    vcr::use_cassette("finbif_collections", {

      collections <- finbif_collections(
        has_children, NA, subcollections = FALSE, supercollections = TRUE
      )

      collections_error <- try(finbif_collections(1), silent = TRUE)

    })

    expect_snapshot(collections)

    expect_equal(
      collections_error[[1L]],
      paste(
        "Error in finbif_collections(1) :",
        "\n  Collections filter must be a logical vector\n"
      )
    )

  }

  options(finbif_cache_path = NULL)

  options(op)

})