tests/testthat/test-itis_group.R

In ritis: Integrated Taxonomic Information System Client

context("itis_group")

test_that("itis_group basic functionality works", {
  vcr::use_cassette("itis_group", {
    aa <- sm(itis_group(q = "nameWOInd:/[A-Za-z0-9]*[%20]{0,0}*/",
      group.field = 'rank', group.limit = 3))
  })

  expect_is(aa, "data.frame")
  expect_true(any(grepl("group", names(aa))))
})

test_that("itis_group fails well", {
  skip_on_cran()

  vcr::use_cassette("itis_group-fails-well", {
    expect_error(sm(itis_group()))
  })

  expect_error(sm(itis_group(wt = "asdfaddf")))
})