tests/testthat/test-orcid_doi.R

In rorcid: Interface to the 'Orcid.org' API

test_that("orcid_doi basic functionality works", {
  skip_on_cran()
  
  vcr::use_cassette("orcid_doi", {
    aa <- orcid_doi("10.1087/20120404")
  })
  
  expect_is(aa, "orcid_doi")
  expect_is(unclass(aa), "list")
  expect_equal(length(aa), 1)
  expect_is(aa[[1]], "tbl_df")
  expect_type(attr(aa[[1]], 'found'), "integer")
})

test_that("orcid_doi accepts many doi's", {
  skip_on_cran()
  
  dois <- c("10.1371/journal.pone.0025995","10.1371/journal.pone.0053712")
  vcr::use_cassette("orcid_doi_many_dois", {
    bb <- orcid_doi(dois)
  })
  
  expect_is(bb, "orcid_doi")
  expect_is(unclass(bb), "list")
  expect_equal(length(bb), 2)
  expect_is(bb[[1]], "tbl_df")
  expect_is(bb[[2]], "tbl_df")
})

test_that("orcid_doi paging parameters works as expected", {
  skip_on_cran()
  
  vcr::use_cassette("orcid_doi_pagination", {
    pg1 <- orcid_doi("10.1087/20120404", rows = 3)
    pg2 <- orcid_doi("10.1087/20120404", rows = 3, start = 4)
  })
  
  expect_false(identical(pg1[[1]], pg2[[1]]))
  expect_type(attr(pg1[[1]], "found"), "integer")
  expect_type(attr(pg2[[1]], "found"), "integer")
  expect_equal(NROW(pg1[[1]]), 3)
  expect_gt(NROW(pg2[[1]]), 0)
})

test_that("orcid_doi fails well", {
  skip_on_cran()
  
  expect_error(orcid_doi(5), "The following are not DOIs")
  expect_error(orcid_doi(list(a = 6)), "The following are not DOIs")
})