tests/testthat/test-cat2.R

library("testthat")

test_that("cat2 works", {
    x <- capture.output(cat2("x:", 1))
    expect_equal(x, "x: 1")
})
toscm/toscutil documentation built on Feb. 23, 2025, 2:20 p.m.