tests/testthat/test-bhl_bioherlib.R

test_that("bhl_bioherlib", {
  skip_on_cran()
	vcr::use_cassette("bhl_bioherlib", {
  	tt <- bhl_bioherlib(method='GetPageMetadata', pageid=1328690,
      ocr=TRUE, names=TRUE)
  	uu <- bhl_bioherlib(method='GetPageMetadata', pageid=1328690,
      ocr=TRUE, names=TRUE, as="list")
  	vv <- bhl_bioherlib(method='GetPageMetadata', pageid=1328690,
      ocr=TRUE, names=TRUE, as='xml')
  })

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

  expect_is(uu$Status, "character")
	expect_is(uu$Result, "list")
	expect_is(uu$Result[[1]]$ItemID, "integer")

	expect_is(vv, "character")
	expect_is(xml2::read_xml(vv), "xml_document")
	expect_is(xml2::xml_find_all(xml2::read_xml(vv), '//Result'), "xml_nodeset")

	# correct dimensions
  expect_equal(NROW(tt), 1)
  expect_equal(length(uu$Status), 1)
  expect_equal(length(uu), 3)
  expect_equal(length(vv), 1)
})
ropensci/rbhl documentation built on Sept. 12, 2022, 2:02 p.m.