tests/testthat/test-function-splitIntoLines.R

test_that("splitIntoLines() works", {

  f <- kwb.utils:::splitIntoLines

  expect_error(f())
  expect_error(f(1))
  expect_error(f(c("abc", "def")))
  
  expect_identical(f("a\nb"), c("a", "b"))
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.