tests/testthat/test-missing.R

In poissonconsulting/checkr: Check the Properties of Common R Objects

test_that("missing", {
  rlang::scoped_options(lifecycle_verbosity = "quiet")
  data <- data.frame(x = 1, y = 2, z = 0)
  expect_identical(check_missing_colnames(data, "a"), data)
  expect_error(check_missing_colnames(data, c("y", "x", "a")), "data must not have columns 'x' and 'y'")
})
  
test_that("missing names errors", {
  rlang::scoped_options(lifecycle_verbosity = "quiet")
  vec <- c(x = 1, y = 2, z = 0)
  expect_error(check_missing_names(vec, c("x", "y", "a"), error = TRUE), "vec must not have names 'x' and 'y'")
  expect_identical(check_missing_names(vec, "a", error = TRUE), vec)
})