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))
})
neurogenomics/templateR documentation built on Jan. 27, 2024, 3:36 p.m.