tests/testthat/test-vascan_search.r

In ropensci/taxize: Taxonomic Information from Around the Web

context("vascan_search")

test_that("vascan_search returns the correct class", {
  skip_on_cran()
  vcr::use_cassette("vascan_search", {
    aa <- vascan_search(q = "Helianthus annuus")
    bb <- vascan_search(q = c("Helianthus annuus", "Crataegus dodgei"), raw=TRUE)
    splist <- names_list(rank='species', size=50)
    cc <- vascan_search(q = splist)
  }, preserve_exact_body_bytes = TRUE)

  expect_is(aa, "list")
  expect_is(bb, "character")
  expect_is(cc, "list")
  expect_is(aa[[1]]$matches[[1]]$taxonomicassertions, "data.frame")

  expect_equal(NCOL(aa[[1]]$matches[[1]]$taxonomicassertions), 7)
})