tests/testthat/test-get_natservid.R

In taxize: Taxonomic Information from Around the Web

context("get_natservid")

test_that("get_natservid returns the correct value", {
  skip_on_cran()

  vcr::use_cassette("get_natservid", {
    x <- get_natservid(c('Pomatomus saltatrix', "howdy"), messages=FALSE)[2]
    w <- get_natservid(c("Helianthus annuus", 'Pomatomus saltatrix'), 
        messages=FALSE)
  })
    
  expect_true(is.na(x))
  expect_is(w, "natservid")
})

test_that("get_natservid accepts ask-argument", {
  skip_on_cran()
  
  vcr::use_cassette("get_natservid_ask_arg", {
    x <- get_natservid('howdy', ask = FALSE, messages=FALSE)
  })

  expect_true(is.na(x))
})

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

  expect_true(is.na(get_natservid("asdfadsf", messages = FALSE)))

  expect_error(get_natservid(), "argument \"sci_com\" is missing")
  expect_error(get_natservid("clam", 5),
               "searchtype must be of class character")
  expect_error(get_natservid("clam", "stuff", messages = FALSE),
               "'searchtype' must be one of")
  expect_error(get_natservid("clam", ask = 4),
               "ask must be of class logical")

  # rows param
  expect_error(get_natservid('Ruby*', 'common', rows = "foobar", messages = FALSE),
               "rows must be of class numeric, integer")
  expect_error(get_natservid('Ruby*', 'common', rows = 0, messages = FALSE),
               "all\\(rows > 0\\) is not TRUE")
})