tests/testthat/test-alert.R

In acidgenomics/r-acidcli: Acid Genomics Command Line Interface

test_that("alert", {
    for (fun in list(
        alert,
        alertDanger,
        alertInfo,
        alertSuccess,
        alertWarning
    )) {
        expect_message(
            object = fun(c("XXX", "YYY")),
            regexp = "XXX"
        )
    }
})