tests/testthat/test_search_data_packages.R

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

context("Search data packages")

testthat::test_that("search_data_packages() works", {
  query <- 'q="air+temperature"&fl=*'
  vcr::use_cassette("search_data_packages", {
    res <- search_data_packages(query, as = "xml")
  })
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  expect_true("document" %in% xml2::xml_name(xml2::xml_children(res)))
  children_found <- xml2::xml_name(
    xml2::xml_children(xml2::xml_children(res)[1]))
  children_expected <- c("abstract", "begindate", "doi", "enddate", "funding", 
                         "geographicdescription", "id", "methods", "packageid", 
                         "pubdate", "responsibleParties", "scope", "site", 
                         "taxonomic", "title", "authors", "spatialCoverage", 
                         "sources", "keywords", "organizations", "singledates", 
                         "timescales")
  expect_true(all(children_found %in% children_expected))
})