tests/testthat/test_test_na.R

In holmesjoli/validR: Data Validation Tools for R

testthat::test_that("test_na", {
  
  df <- data.frame(x = 1:4, y = c(NA, 6:8))
  
  setup <- setup_test_na(df_name = "x", col_name = "x")
  test <- test(setup, df)
  testthat::expect_true(test$test_result)
  
  setup <- setup_test_na(df_name = "x", col_name = "y")
  test <- test(setup, df)
  testthat::expect_false(test$test_result)
  
})