tests/testthat/test-bd_retrieve_by_search.R

In TIBHannover/BacDiveR: Programmatic Interface For The Bacterial Diversity Metadatabase by DSMZ

context("test-bd_retrieve_by_search.R")

test_that("Downloading a small 'advanced search' result works", {
  expect_type(
    bd_retrieve_by_search(queryURL = "https://bacdive.dsmz.de/advsearch?site=advsearch&searchparams%5B78%5D%5Bcontenttype%5D=text&searchparams%5B78%5D%5Btypecontent%5D=contains&searchparams%5B78%5D%5Bsearchterm%5D=Miller&advsearch=search"),
    "list"
  )
})

test_that("Searching for something non-existant yields an empty list", {
  expect_warning(
    empty <-
      bd_retrieve_by_search(queryURL = "https://bacdive.dsmz.de/advsearch?site=advsearch&searchparams%5B78%5D%5Bcontenttype%5D=text&searchparams%5B78%5D%5Btypecontent%5D=contains&searchparams%5B78%5D%5Bsearchterm%5D=ABCDEFG&advsearch=search")
  )
  expect_equal(empty, list())
})


queryURL <-
  "https://bacdive.dsmz.de/advsearch?advsearch=search&site=advsearch&searchparams[20][contenttype]=text&searchparams[20][typecontent]=contains&searchparams[20][searchterm]=Sea+of+Japan&searchparams[17][searchterm]=Europe"

test_that("Inconsistent datasets get corrected", {
  inconsistent_data <- bd_retrieve_by_search(queryURL)
  expect_false(is.null(inconsistent_data))
})

test_that("Fuzzing of queryURL parameter produces error", {
  fuzzy_URL <- paste0(
    sample(strsplit(queryURL, "")[[1]],
      size = nchar(queryURL)
    ),
    collapse = ""
  )

  expect_error(bd_retrieve_by_search(fuzzy_URL))
})