tests/testthat/test-taxonClient-misc.R

In naturalis/nbaR: R Package Client for the Netherlands Biodiversity API

source("setup-vars.R")

context("Testing miscellaneous TaxonClient endpoints")

test_that("count works", {
  res <- tc$count()
  expect_is(res$content, "integer")
  expect_true(res$content > 0)
})

test_that("countDistinctValues works", {
  res <- tc$count_distinct_values("acceptedName.author")
  expect_true(res$content > 0)
})

test_that("getDistinctValues works", {
  ## check for all paths
  paths <- tc$get_paths()$content
  for (p in paths) {
    res <- tc$get_distinct_values(p)
    ## check if we get list back
    expect_is(res$content, "list")
  }
  ## method should give a warning if field is not found
  expect_warning(tc$get_distinct_values("XX"))
})