tests/testthat/to_be_improved/test-expt-is_sharing_allowed.R

In patRyserWelch8/dsShareServerNewVersion: Provide the server-side functions for privacy-preserving sharing of parameters and encrypted datasets

rm("settings", pos = 1)
context("is.sharing.allowed::smk")
test_that("no setting",
{
  expect_false(is.sharing.allowed())
})




context("is.sharing.allowed::smk")
test_that("with setting not allowed",
{
  options(param.name.struct = "sharing")
  options(sharing.allowed = 0)
  assignSharingSettingsDS()
  expect_true(exists("settings", where = 1))
  expect_false(is.sharing.allowed())
})



context("is.sharing.allowed::smk")
test_that("with setting and allowed",
{
  options(param.name.struct = "sharing")
  options(sharing.allowed = 1)
  assignSharingSettingsDS()
  expect_true(exists("settings", where = 1))
  expect_true(is.sharing.allowed())
})