tests/testthat/test_read_metadata.R

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

context("Read metadata")

testthat::test_that("read_metadata() works", {
  vcr::use_cassette("read_metadata", {
    res <- read_metadata("edi.100.1")
  })
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  expect_true(all(c("access", "dataset") %in% 
                    xml2::xml_name(xml2::xml_children(res))))
})