tests/testthat/test_read_data_package_from_doi.R

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

context("Read data package from DOI")

testthat::test_that("read_data_package_from_doi() works", {
  vcr::skip_if_vcr_off()
  # Standard output
  vcr::use_cassette("read_data_package_from_doi", {
    res <- read_data_package_from_doi(
      doi = "doi:10.6073/pasta/b202c11db7c64943f6b4ed9f8c17fb25")
  })
  expect_equal(class(res), "character")
  expect_true(length(res) > 0)
  # # ORE output (vcr issues)
  # vcr::use_cassette("read_data_package_from_doi_ore", {
  #   res <- read_data_package_from_doi(
  #     doi = "doi:10.6073/pasta/b202c11db7c64943f6b4ed9f8c17fb25", ore = TRUE)
  # })
  # expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  # expect_true("Description" %in% xml2::xml_name(xml2::xml_children(res)))
})

testthat::test_that("read_data_package_from_doi() works", {
  skip_if_logged_out()
  # Standard output
  res <- read_data_package_from_doi(
    doi = "doi:10.6073/pasta/b202c11db7c64943f6b4ed9f8c17fb25")
  expect_equal(class(res), "character")
  expect_true(length(res) > 0)
  # ORE output
  res <- read_data_package_from_doi(
    doi = "doi:10.6073/pasta/b202c11db7c64943f6b4ed9f8c17fb25", ore = TRUE)
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  expect_true("Description" %in% xml2::xml_name(xml2::xml_children(res)))
})