tests/testthat/test_isAuditable.R

context("isAuditable")

test_that("isAuditable", {
  options('op_audit' =  FALSE)
  expect_false(isAuditable())
  options('op_audit' =  TRUE)
  expect_true(isAuditable())
  options('op_audit' =  NULL)
  expect_false(isAuditable())
})

Try the wyz.code.offensiveProgramming package in your browser

Any scripts or data that you put into this service are public.

wyz.code.offensiveProgramming documentation built on Sept. 25, 2023, 9:05 a.m.