tests/testthat/test-get_eolid.R

In taxize: Taxonomic Information from Around the Web

context("get_eolid")

test_that("get_eolid works", {
    skip_on_cran()

  vcr::use_cassette("get_eolid", {
    a <- get_eolid(sci_com = "Puma concolor", messages = FALSE, rows = 1)
  }, preserve_exact_body_bytes = TRUE)

  expect_is(a, "eolid")
  expect_is(a[[1]], "character")
  expect_is(as.numeric(a[[1]]), "numeric")
  expect_is(attr(a, "pageid"), "character")
  expect_is(attr(a, "provider"), "character")
  expect_is(attr(a, "match"), "character")
  expect_true(attr(a, "multiple_matches"))
  expect_true(attr(a, "pattern_match"))
  expect_is(attr(a, "uri"), "character")
})

test_that("get_eolid accepts ask-argument", {
  skip_on_cran()

  vcr::use_cassette("get_eolid_ask_param", {
    expect_true(is.na(get_eolid(sci_com = 'adsf asdf asdf', ask = FALSE,
      messages = FALSE)[[1]]))
  })
})

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

  expect_error(get_eolid(), "argument \"sci_com\" is missing")
  expect_error(get_eolid("Poa annua", ask = 4, messages = FALSE),
               "ask must be of class logical")

  Sys.sleep(1)
  # rows param
  expect_error(get_eolid("Poa annua", rows = "foobar", messages = FALSE),
               "rows must be of class numeric, integer")
  expect_error(get_eolid("Poa annua", rows = 0, messages = FALSE),
               "all\\(rows > 0\\) is not TRUE")
})