tests/testthat/test-crm_xml.R

In ropensci/crminer: Fetch 'Scholary' Full Text from 'Crossref'

context("crm_xml")

library("xml2")

# don't use a random DOI when caching
# data(dois_pensoft)
# doi1 <- sample(dois_pensoft, size = 1)
doi1 <- "10.3897/bdj.4.e9287"

if (identical(Sys.getenv("NOT_CRAN"), "true")) {
  vcr::use_cassette("crm_xml_prep", {
    url1 <- crm_links(doi1, type = "xml")
  })
}

test_that("crm_xml works with links input",{
  skip_on_cran()

  # vcr::use_cassette("crm_xml_links_in", {
  links <- crm_links("10.3897/compcytogen.v10i4.9536", type = "all")
  res <- suppressMessages(crm_xml(links))
  # }, preserve_exact_body_bytes = TRUE)
  expect_is(res, "xml_document")
  expect_equal(xml2::xml_name(res), "article")
})

test_that("crm_xml works with character URL input", {
  skip_on_cran()

  # vcr::use_cassette("crm_xml_character_in", {
  res <- suppressMessages(crm_xml(url1$xml))
  # })
  expect_is(res, "xml_document")
  expect_equal(xml2::xml_name(res), "article")
})

test_that("crm_xml fails well",{
  expect_error(crm_xml(5), "no 'crm_xml' method for numeric")
  expect_error(crm_xml(mtcars), "no 'crm_xml' method for data.frame")
  expect_error(crm_xml(matrix(1:5)), "no 'crm_xml' method for matrix")
  expect_error(crm_xml("adfdf"), "Not a proper url")
  skip_on_cran()
  expect_error(crm_xml(url1, overwrite_unspecified = 5),
               "overwrite_unspecified must be of class logical")
})