tests/testthat/test_read_data_package_citation.R

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

context("Read data package citation")

testthat::test_that("read_data_package_citation() works", {
  packageId <- "edi.460.1"
  # As char
  vcr::use_cassette("read_data_package_citation", {
    res <- read_data_package_citation(packageId)
  })
  expect_equal(class(res), "character")
  # As html
  vcr::use_cassette("read_data_package_citation_html", {
    res <- read_data_package_citation(packageId, as = "html")
  })
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  # As json
  vcr::use_cassette("read_data_package_citation_json", {
    res <- read_data_package_citation(packageId, as = "json")
  })
  expect_equal(class(res), "json")
})