tests/testthat/test-herpAdvancedSearch.R

In letsHerp: An Interface to the Reptile Database

test_that("herpAdvancedSearch returns expected output", {
  skip_on_cran()
  skip_if_not(Sys.getenv("NOT_CRAN") == "true")
  
  result <- herpAdvancedSearch(higher = "snakes", year = "2010", location = "Brazil")
  
  expect_type(result, "character")
  expect_true(grepl("https://reptile-database.reptarium.cz/advanced_search?", result))
})