tests/testthat/test_get_packageid_reads.R

In EDIutils: An API Client for the Environmental Data Initiative Repository

context("Get packageId reads")

testthat::test_that("get_packageid_reads() works", {
  vcr::use_cassette("get_packageid_reads", {
    res <- get_packageid_reads("knb-lter-sgs.817.17", as = "xml")
  })
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  expect_true("resource" %in% xml2::xml_name(xml2::xml_children(res)))
  children_found <- xml2::xml_name(
    xml2::xml_children(xml2::xml_children(res)[1]))
  children_expected <- c("resourceId", "resourceType", "scope", "identifier", 
                         "revision", "totalReads", "nonRobotReads")
  expect_true(all(children_found %in% children_expected))
})