context("get_eolid")
test_that("get_eolid works", {
skip_on_cran()
vcr::use_cassette("get_eolid", {
a <- get_eolid(sci_com = "Puma concolor", messages = FALSE, rows = 1)
}, preserve_exact_body_bytes = TRUE)
expect_is(a, "eolid")
expect_is(a[[1]], "character")
expect_is(as.numeric(a[[1]]), "numeric")
expect_is(attr(a, "pageid"), "character")
expect_is(attr(a, "provider"), "character")
expect_is(attr(a, "match"), "character")
expect_true(attr(a, "multiple_matches"))
expect_true(attr(a, "pattern_match"))
expect_is(attr(a, "uri"), "character")
})
test_that("get_eolid accepts ask-argument", {
skip_on_cran()
vcr::use_cassette("get_eolid_ask_param", {
expect_true(is.na(get_eolid(sci_com = 'adsf asdf asdf', ask = FALSE,
messages = FALSE)[[1]]))
})
})
test_that("get_eolid fails as expected", {
skip_on_cran()
expect_error(get_eolid(), "argument \"sci_com\" is missing")
expect_error(get_eolid("Poa annua", ask = 4, messages = FALSE),
"ask must be of class logical")
Sys.sleep(1)
# rows param
expect_error(get_eolid("Poa annua", rows = "foobar", messages = FALSE),
"rows must be of class numeric, integer")
expect_error(get_eolid("Poa annua", rows = 0, messages = FALSE),
"all\\(rows > 0\\) is not TRUE")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.