tests/testthat/test-itis_taxrank.R

In ropensci/taxize: Taxonomic Information from Around the Web

context("itis_taxrank")

test_that("itis_taxrank returns the correct value", {
  skip_on_cran()
  vcr::use_cassette("itis_taxrank", {
    temp <- itis_taxrank(query=202385, verbose=FALSE)
  })

  expect_match(as.character(temp), "Subspecies")
	expect_is(temp, "character")
})