tests/testthat/test-skippers.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

# test_that("skip_if_onlyread set", {
#   # Test that a skip happens
#   withr::local_envvar(ONLY_READ_TESTS = "yes")
#   expect_condition(skip_if_onlyread(), class = "skip")
# })
#
# test_that("skip_if_onlyread not set", {
#   # Test that a skip doesn't happen
#   withr::local_envvar(ONLY_READ_TESTS = "")
#   expect_condition(skip_if_onlyread(), NA, class = "skip")
# })