tests/testthat/test-bhl_subjectsearch.R

In ropensci/rbhl: Interface to the 'Biodiversity' 'Heritage' Library

test_that("bhl_subjectsearch", {
  skip_on_cran()
  vcr::use_cassette("bhl_subjectsearch", {
    tt <- bhl_subjectsearch('diptera')
    vv <- bhl_subjectsearch('diptera', as='xml')
    zz <- bhl_subjectsearch('diptera', as='json')
  })

  # the correct classes
  expect_is(tt, "data.frame")

  expect_is(zz, "character")
  expect_is(jsonlite::fromJSON(zz), "list")

  expect_is(vv, "character")
  expect_is(xml2::read_xml(vv), "xml_document")

  # the correct dimensions
  expect_equal(length(zz), 1)
  expect_equal(length(jsonlite::fromJSON(zz)), 3)
  expect_equal(length(vv), 1)
  expect_equal(length(xml2::read_xml(vv)), 2)
})