tests/testthat/test-clean.R

context("cleaning objects")

tmp <- Easplist
tmp@taxonNames <- Easplist@taxonNames[-c(1:10), ]

test_that("disrupt and clean", {
  expect_error(validObject(tmp))
  expect_equal(validObject(clean(tmp)), TRUE)
})
ropensci/taxlist documentation built on July 4, 2025, 8:23 p.m.