tests/testthat/test-function-assignAll.R

test_that("assignAll() works", {

  expect_error(assignAll(1))
  expect_error(assignAll("a"))  
  
  assignAll(list(a = 1, b = 2))
  
  expect_true(all(c("a", "b") %in% ls(envir = .GlobalEnv)))
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.