tests/testthat/test-function-catLines.R

test_that("catLines() works", {
  
  text <- c("line 1", "line 2", "line 3")
  
  out <- capture.output(catLines(text))
  
  expect_identical(out, text)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.