tests/testthat/test-chk_values.R

In testdat: Data Unit Testing for R

test_that("NULL missing values work", {
  expect_equal(chk_values(c(1, NA), miss = NULL), c(FALSE, FALSE))
  expect_equal(chk_values(c(1, NA)), c(FALSE, TRUE))
})

test_that("scientific notation not applied when value checking numeric vars", {
  expect_true(chk_values(10000000, "10000000"))
  expect_true(chk_values("10000000", 10000000))
})