tests/testthat/testZoonCitation.R

In Boodogs/zoon-clone: Reproducible, Accessible & Shareable Species Distribution Modelling

context('ZoonCitation')

test_that('Check error if not found', {
  
  skip_on_cran()
  
  expect_error(ZoonCitation('ThisDoesNotExist'),
               'URL for module does not exist')
  
})

test_that('Check returns list with all the names', {
  
  x <- ZoonCitation('LogisticRegression')

  names <- c("title", "name", "authors",
             "date_submitted", "note", "email",
             "url")
  
  expect_named(x, names)
  
})