tests/testthat/test-getRappOptions.r

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

context("getRappOptions-A")
test_that("getRappOptions", {

  if (is.null(getOption(".rapp"))) {
    expect_equal(getRappOptions(), NULL)
  } else {
    expect_is(getRappOptions(), "environment")
  }
  expect_equal(getRappOptions(id = "abcd"), NULL)
  expect_error(getRappOptions(id = "abcd", strict = TRUE))
  
  }
)