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 Sept. 17, 2024, 3:39 p.m.