tests/testthat/test-getParam.R

test_that('getParam', {
  expect_warning(res <- getParam('a', 1))
  expect_equal(res, 1)

  params <<- list()
  expect_error(getParam('a', 1))

  params <<- list(a=2)
  expect_silent(res <- getParam('a', 1))
  expect_equal(res, 2)
})
beerda/rmake documentation built on July 2, 2022, 6:24 p.m.