tests/testthat/test-download_searches_results.R

test_that("use", {
  taxon_names <- c(
    "Pan troglodytes",
    "Pan paniscus"
  )
  pages <- download_searches_results(taxon_names)
  expect_equal(length(taxon_names), length(pages))
})
richelbilderbeek/aureole documentation built on March 4, 2020, 10:47 p.m.