tests/testthat/test-ensureRappOptionsContainer.r

In rappster/rapp: Runtime environment for package development and application deployment in the context of the rapp framework

context("ensureRappOptionsContainer-1")
test_that("ensureRappOptionsContainer", {

  opts_old <- getOption(".rapp")
  expect_is(res <- ensureRappOptionsContainer(), "environment")
  expect_is(res <- ensureRappOptionsContainer(overwrite = TRUE), "environment")
  on.exit(options(".rapp" = opts_old))
  }
)