tests/testthat/test-tp_synonyms.R

In taxize: Taxonomic Information from Around the Web

context("tp_synonyms")

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

  expect_match(names(dat)[[1]], "accepted")

	expect_that(dat, is_a("list"))
	expect_that(dat[[1]], is_a("data.frame"))
	expect_that(dat[[2]], is_a("data.frame"))
	expect_that(ncol(dat[[2]]), equals(4))
})