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 March 24, 2024, 4:28 p.m.