tests/testthat/test-eol.R

In originr: Fetch Species Origin Data from the Web

context("eol functions")

# test_that("eol works", {
#   skip_on_cran()

#   aa <- eol(name = 'Brassica oleracea', dataset = 'gisd', messages = FALSE)
#   bb <- eol(name = 'Ciona intestinalis', dataset = 'mineps', messages = FALSE)
#   cc <- eol(name = c('Lymantria dispar','Cygnus olor'), dataset = 'i3n', messages = FALSE)

#   expect_is(aa, "data.frame")
#   expect_equal(aa$searched_name, 'Brassica oleracea')
#   expect_is(aa$searched_name, 'character')
#   expect_equal(aa$db, "gisd")

#   expect_is(bb, "data.frame")
#   expect_equal(bb$searched_name, 'Ciona intestinalis')
#   expect_is(bb$searched_name, 'character')
#   expect_equal(bb$db, "mineps")

#   expect_is(cc, "data.frame")
#   expect_equal(cc$searched_name, c('Lymantria dispar','Cygnus olor'))
#   expect_is(cc$searched_name, 'character')
#   expect_equal(cc$db[1], "i3n")
# })

# test_that("fails well", {
#   skip_on_cran()

#   expect_error(eol(), "argument \"name\" is missing")
#   expect_error(eol(""), "'name' must be longer than 0 characters")
# })