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)
})
bschilder/echoplot documentation built on Oct. 26, 2023, 6:55 p.m.