tests/testthat/test-function-fails.R

test_that("fails() works", {

  f <- kwb.fakin:::fails

  expect_true(f(stop()))
  expect_false(f(x <- 1))
  expect_true(f(mean()))
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.