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)
})
kamapu/taxlist documentation built on Feb. 17, 2024, 8:27 a.m.