test_that("as.orcid", {
skip_on_cran()
vcr::use_cassette("as_orcid", {
aa <- as.orcid("0000-0002-1642-628X")
})
expect_is(aa, "or_cid")
expect_is(aa[[1]], "list")
expect_named(aa, "0000-0002-1642-628X")
})
test_that("as.orcid accepts itself, or_cid class", {
skip_on_cran()
vcr::use_cassette("as_orcid_accepts_self_or_or_cid_class", {
tmp <- as.orcid("0000-0002-1642-628X")
bb <- as.orcid(tmp)
})
expect_is(bb, "or_cid")
expect_is(bb[[1]], "list")
expect_identical(bb, tmp)
expect_identical(bb[[1]], tmp[[1]])
})
test_that("as.orcid fails well", {
skip_on_cran()
expect_error(as.orcid(5), "no 'as.orcid' method")
expect_error(as.orcid(list(a = 6)), "no 'as.orcid' method for numeric")
# ok input class, but but ORCID
vcr::use_cassette("as_orcid_invalid_orcid_id", {
expect_error(as.orcid("adfafadf"), class = "error")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.