tests/testthat/test-function-get_names_recursively.R

test_that("get_names_recursively() works", {

  f <- kwb.fakin:::get_names_recursively

  expect_error(f())

  expect_null(f(1))
  expect_identical(f(list(a = list(b = 1))), c("a", "b"))
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.