tests/testthat/tests.crazyfy.R

test_that("NA column leads to error", {
  data(iris)
  iris$allmiss <- NA
  expect_error(crazyfy(iris))
})

test_that("Invalid provided ID leads to error",{
  data(iris)
  iris$invaliID <- c(1,1, 3:(nrow(iris)))
  expect_error(crazyfy(iris,id="invalidID"))
})
welovedatascience/stranger documentation built on Oct. 12, 2022, 10:52 p.m.