tests/testthat/test-bhl_getpagemetadata.R

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

test_that("bhl_getpagemetadata returns the correct class", {
  skip_on_cran()
	vcr::use_cassette("bhl_getpagemetadata", {
  	tt <- bhl_getpagemetadata(page=1328690, ocr=TRUE, as='list')
  	uu <- bhl_getpagemetadata(page=1328690, ocr=TRUE, as='xml')
  	vv <- bhl_getpagemetadata(page=1328690, ocr=TRUE, as='json')
  })

  expect_is(tt, "list")
  expect_is(tt$Result, "list")
  expect_false(nzchar(tt$ErrorMessage))

  expect_is(uu, "character")

  expect_is(vv, "character")


  expect_equal(length(tt), 3)
  expect_equal(length(tt$Status), 1)
  expect_equal(length(uu), 1)
  expect_equal(length(vv), 1)
})