tests/testthat/test_guardExecution.R

context("guardExecution")

test_that("guardExecution", {
  expect_type(guardExecution(get('XXX', mode = 'function'), FALSE), 'list')
  expect_type(guardExecution(get('XXX', mode = 'function'), TRUE), 'list')
})

Try the wyz.code.testthat package in your browser

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

wyz.code.testthat documentation built on Oct. 6, 2021, 9:07 a.m.