tests/testthat/test_read_data_package_report.R

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

context("Read data package report")

testthat::test_that("read_data_package_report() works", {
  # As xml
  vcr::use_cassette("read_data_package_report", {
    res <- read_data_package_report("knb-lter-knz.260.4")
  })
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  found_children <- unique(xml2::xml_name(xml2::xml_children(res)))
  expected_children <- c("creationDate", "packageId", "includeSystem", 
                         "datasetReport", "entityReport")
  expect_true(all(found_children %in% expected_children))
  # As html
  vcr::use_cassette("read_data_package_report_html", {
    res <- read_data_package_report("knb-lter-knz.260.4", as = "html")
  })
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  expect_true("body" %in% xml2::xml_name(xml2::xml_children(res)))
  # Read char
  vcr::use_cassette("read_data_package_report_char", {
    qualityReport <- read_data_package_report(
      packageId = "knb-lter-knz.260.4", 
      as = "char")
  })
  expect_type(qualityReport, "character")
})