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/PeakyFinders documentation built on Oct. 14, 2024, 3:09 p.m.