tests/testthat/test-expect_base.R

In testdat: Data Unit Testing for R

test_that("basic examples", {
  expect_success(expect_base(y, x == 1, data = tibble(x = c(1, 0), y = c(1, NA))))
  expect_failure(expect_base(y, x == 1, data = tibble(x = c(1, 0), y = c(1, 1))))
})

test_that("NA check results are handled correctly", {
  expect_success(expect_base(y, x == 1, data = tibble(x = c(1, NA), y = c(1, NA))))
  expect_failure(expect_base(y, x == 1, data = tibble(x = c(1, NA), y = c(1, 1))))
})