tests/testthat/test-tp_dist.R

In ropensci/taxize: Taxonomic Information from Around the Web

context("tp_dist")

test_that("tp_dist returns the correct class", {
  skip_on_cran() # uses secrets
  vcr::use_cassette("tp_dist", {
    tt <- suppressMessages(tp_dist(id = 25509881))
  }, preserve_exact_body_bytes = TRUE)

	expect_that(tt, is_a("list"))
	expect_that(tt[['location']], is_a("data.frame"))
	expect_that(tt[['reference']], is_a("data.frame"))
	expect_true(any(grepl("abbreviatedtitle", names(tt[['reference']]))))
})