tests/testthat/test-npn-datasets.R

In usa-npn/rnpn: Interface to the National 'Phenology' Network 'API'

test_that("datasets endpoint working", {
  skip_if_not(check_service(), "Service is down")

  vcr::use_cassette("npn_datasets_1", {
    datasets <- npn_datasets()
  })

  expect_s3_class(datasets, "data.frame")
  expect_type(datasets$dataset_name, "character")
  expect_gt(nrow(datasets), 5)
})