tests/testthat/test-smk-expt-nextDS.R

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

source('options/options_definitions.R')
source("data_files/variables.R")
set.default.options.to.null()

context("dsShareServer::nextDS::smk")
test_that("nothing has been set",
{
  expect_error(nextDS())
  expect_error(nextDS("df_B",10))
})



test_that("not allowed and nothing has been set",
{
  set.not.allowed()
  expect_error(assignSharingSettingsDS())
  expect_error(nextDS())
  expect_error(nextDS("df_B",10))
})

set.allowed()
assignSharingSettingsDS()
test_that("allowed and nothing has been set",
{
  expect_error(nextDS())
  expect_error(nextDS("df_B",10))
})

options(dsSS_sharing.allowed = 1)
set.allowed()
options(dsSS_sharing.allowed = 1)
assignSharingSettingsDS()
source("data_files/variables.R")
test_that("allowed and no encoding set",
{
  expect_error(nextDS())
  expect_error(nextDS("df_B",10))
})


set.default.options.restrictive()
set.allowed()
options(dsSS_sharing.allowed = 1)
assignSharingSettingsDS()

source("data_files/variables.R")
assign("all.data", rbind(get("D", pos = 1), get("E", pos = 1), get("F", pos = 1)) , pos = 1)
all.data <- get("all.data", pos= 1)

data.encoded <- isDataEncodedDS(data.server = "vector_A", data.encoded = "df_B")

test_that("allowed and encoding set",
{
  expect_error(nextDS())
})

rm(list = ls(pos = 1), pos = 1)


context("dsShareServer::nextDS::expt")
test_that("allowed and no encoding set",
{

  source('options/options_definitions.R')
  source("data_files/variables.R")
  set.default.options.restrictive()
  set.allowed()
  options(dsSS_sharing.allowed = 1)
  assignSharingSettingsDS()

  source("data_files/variables.R")
  assign("all.data", rbind(get("D", pos = 1), get("E", pos = 1), get("F", pos = 1)) , pos = 1)
  all.data <- get("all.data", pos= 1)

  data.encoded  <- isDataEncodedDS(data.server = "vector_A", data.encoded = "df_B")
  EOF           <- isEndOfDataDS(data.encoded = "df_B")
  df_B          <- get("df_B", pos = 1)
  counter       <- 1


  transfer      <- get("transfer", pos = 1)
  expect_true(transfer$current_row == counter)

  while(!EOF)
  {
    data.transfer <- nextDS("df_B",10)
    counter       <- counter  + 10
    EOF           <- isEndOfDataDS(data.encoded = "df_B")
    transfer      <- get("transfer", pos = 1)

    expect_true(transfer$current_row == counter)
    expect_true(identical(data.transfer$header,"FM1"))
    expect_true(is.numeric(data.transfer$property.a))
    expect_true(is.numeric(data.transfer$property.b))
    expect_true(is.numeric(data.transfer$property.c))
    expect_true(is.numeric(data.transfer$property.d))
    expect_true(data.transfer$property.b == 3)
  }

})