tests/testthat/test-function-print_elements_with_modes.R

test_that("print_elements_with_modes() works", {

  f <- kwb.code:::print_elements_with_modes
  
  expect_error(f())

  expect_output(f(1))
  expect_output(f(list("a",1, list(2))))
})
KWB-R/kwb.code documentation built on July 28, 2023, 5:57 p.m.