tests/testthat/test_printStrToChar.R

context("printStrToChar")

test_that("printStrToChar", {
  x = 1L
  s = printStrToChar(x, collapse=NULL)
  expect_equal(s, " int 1")
  s = printStrToChar(iris, collapse=NULL)
  expect_true(is.character(s) && length(s) == 6)
  s = printStrToChar(iris)
  expect_true(is.character(s) && length(s) == 1)
})
berndbischl/BBmisc documentation built on Jan. 6, 2023, 12:32 p.m.