tests/testthat/test_read_metadata_entity.R

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

context("Read metadata entity")

testthat::test_that("read_metadata_entity() works", {
  packageId <- "knb-lter-cap.691.2"
  entityId <- "f6e4efd0b04aea3860724824ca05c5dd"
  vcr::use_cassette("read_metadata_entity", {
    res <- read_metadata_entity(packageId, entityId)
  })
  expect_true("xml_nodeset" %in% class(res))
  expect_true(all("dataTable" %in% xml2::xml_name(res)))
})