tests/testthat/test-stopper.R

test_that("stopper works", {

        msg <- "You have encountered an error"
        testthat::expect_error(stopper(msg = msg))
        testthat::expect_error(stopper(msg = msg, v=FALSE))
})
RajLabMSSM/echodeps documentation built on Oct. 31, 2023, 7:20 a.m.