tests/testthat/test-messager.R

test_that("messager works", {
    
    msg <- "Hello echoverse"
    msg_out <- utils::capture.output(messager(msg),
                                     type = "message")
    testthat::expect_equal(msg, msg_out)
})
RajLabMSSM/echoplot documentation built on Oct. 24, 2023, 2:41 a.m.