tests/testthat/test-occCitePrint.R

In occCite: Querying and Managing Large Biodiversity Occurrence Datasets

library(occCite)
library(ape)

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

test_that("regular print", {
  output <- suppressWarnings({
    utils::capture.output(print(myOccCitations))
  })
  expect_equal(class(output), "character")
})

test_that("print by species", {
  output <- suppressWarnings({
    utils::capture.output(print(myOccCitations, bySpecies = TRUE))
  })
  expect_equal(class(output), "character")
})