tests/testthat/test-printComment.R

In steinbaugh/bb8: Acid Genomics Developer Tools

test_that("printComment", {
    out <- capture.output({
        printComment(c("hello", "world"))
    })
    expect_identical(
        object = out,
        expected = "## [1] \"hello\" \"world\""
    )
})