tests/testthat/test-printString.R

In acidgenomics/AcidBase: Acid Genomics Base Functions

test_that("vector concatenation to string", {
    expect_identical(
        printString(c("hello", "world")),
        "[1] \"hello\" \"world\""
    )
})

test_that("data.frame collapse to string", {
    expect_identical(
        printString(mtcars[, seq_len(2L)], max = 2L),
        "                     mpg cyl\nMazda RX4           21.0   6"
    )
})