tests/testthat/test-get_boldid.R

In ropensci/taxize: Taxonomic Information from Around the Web

# tests for get_boldid fxn in taxize
context("get_boldid")

test_that("get_boldid returns the correct value", {
  skip_on_cran()
  vcr::use_cassette("get_boldid", {
    expect_equal(get_boldid(sci = 'Helianthus', messages = FALSE)[[1]], '125295')
    expect_true(is.na(get_boldid(sci='adsf asdf asdf', messages=FALSE)[[1]]))
    expect_is(get_boldid(c("Helianthus excubitor", "adsf asdf asdf"), messages=FALSE), 
      "boldid")
  })
})

test_that("get_boldid accepts ask-argument", {
  skip_on_cran()
  vcr::use_cassette("get_boldid_ask_false", {
    expect_true(is.na(
      get_boldid('adsf asdf asdf', ask=FALSE, messages=FALSE)[[1]]))
  })
})

test_that("get_boldid works when there's no parent name", {
  skip_on_cran()
  vcr::use_cassette("get_boldid_no_parent_name", {
    x <- get_boldid("Chordata", messages = FALSE)
  })

  expect_is(x, "boldid")
  expect_equal(x[1], "18")
})

test_that("get_boldid fails as expected", {
  skip_on_cran()

  expect_error(get_boldid(), "argument \"sci\" is missing")
  expect_error(get_boldid("Satyrium", ask = 4, messages = FALSE),
               "ask must be of class logical")
  expect_error(
    get_boldid("Osmi", fuzzy=4, messages = FALSE),
    "fuzzy must be of class logical")
  expect_error(
    get_boldid("Osmi", dataTypes = 4, messages = FALSE),
    "dataTypes must be of class character")
  expect_error(
    get_boldid("Osmi", includeTree = 4, messages = FALSE),
    "includeTree must be of class logical")
  expect_error(
    get_boldid("Osmi", rank = 4, messages = FALSE),
    "rank must be of class character")
  expect_error(
    get_boldid("Osmi", division = 4, messages = FALSE),
    "division must be of class character")
  expect_error(
    get_boldid("Osmi", parent = 4, messages = FALSE),
    "parent must be of class character")

  # rows param
  expect_error(get_boldid("Achlya", rows = "foobar", messages = FALSE),
               "rows must be of class numeric, integer")
  expect_error(get_boldid("Achlya", rows = 0, messages = FALSE),
               "all\\(rows > 0\\) is not TRUE")

  # skip('BOLD API down right now, SSL issue')
  # filter param doesn't match any values - returns NA and warns
  expect_warning(
    (z=get_boldid("Satyrium", division = "Plants", messages = FALSE)),
    "check spelling")
  expect_equal(z[1], NA_character_)
})