tests/testthat/test-herpSearch.R

In letsHerp: An Interface to the Reptile Database

test_that("herpSearch returns expected output", {
  skip_on_cran()
  skip_if_not(Sys.getenv("NOT_CRAN") == "true")
  
  result <- herpSearch("Philodryas livida")
  
  expect_type(result, "list")
  expect_true("species" %in% names(result))
  expect_gt(length(result), 0)
})