tests/testthat/test-cr_abstract.R

In ropensci/rcrossref: Client for Various 'CrossRef' 'APIs'

skip_on_cran()

test_that("cr_abstract", {
  vcr::use_cassette("cr_abstract", {
    b <- cr_abstract("10.1175//2572.1")
  })

  expect_is(b, "character")
  expect_match(b, "University")
  expect_gt(nchar(b), 1000L)
})

test_that("cr_abstract not found", {
  vcr::use_cassette("cr_abstract_not_found", {
    expect_error(cr_abstract('10.5284/1011335'))
  })
})