tests/testthat/test-occCitePrint.R

In hannahlowens/occCite: Querying and Managing Large Biodiversity Occurrence Datasets

library(occCite)
library(ape)

data(myOccCiteObject)
mySimpleOccCiteObject <- myOccCiteObject
myOccCitations <- occCitation(mySimpleOccCiteObject)

test_that("regular print", {
  output <- capture.output(print(myOccCitations))
  expect_equal(length(output), 23)
})

test_that("print by species", {
  output <- capture.output(print(myOccCitations, bySpecies = TRUE))
  expect_equal(length(output), 27)
})