tests/testthat/test-function-extend_each_element.R

test_that("extend_each_element() works", {

  f <- kwb.fakin:::extend_each_element

  expect_error(f())
  expect_error(f(1))

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