tests/testthat/test-messager.R

In neurogenomics/EpiProcess: Preprocess epigenomic data for downstream analysis

test_that("messager works", {
    
    if(!is_32bit()){
        msg <- "Hello world"
        #### Default ####
        msg_out <- utils::capture.output(messager(msg),
                                         type = "message")
        testthat::expect_equal(msg, msg_out)
        #### Parallel ####
        f <- textConnection("test3", "w")
        msg_out2 <- utils::capture.output(messager(msg, parallel = TRUE),
                                         type = "message")
        testthat::expect_equal(msg_out2, character()) 
    } else {
        testthat::expect_null(NULL)   
    }
})