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/echoverseTemplate documentation built on Oct. 26, 2023, 2:45 p.m.