tests/testthat/test-expt-assignParamSettingsDS.R

In patRyserWelch8/dsServerParameter: share parameters between servers in a non-disclosive manner

context("assignParamSettingsDS::smk::incorrect_outcome")
test_that("everything is incorrect",
{
  if (exists("settings",where = 1))
  {
    rm("settings", pos=1)
  }
  expect_equal(exists("settings", where = 1), FALSE)
  expect_error(assignParamSettingsDS(),"SERVER::ERR::PARAM::001")
  expect_error(assignParamSettingsDS(123),"SERVER::ERR::PARAM::001")
  expect_equal(are.params.created(param_names = c("first_var")), FALSE)
  expect_equal(are.params.created(param_names = c("first_var", "second_var")),FALSE)
  expect_equal(are.params.created(param_names = c("first_var", "second_var","third_var")),FALSE)
  expect_equal(are.params.created(param_names = c("first_var",1)), FALSE)
  expect_equal(are.params.created(param_names = c(1,2,4)),FALSE)
  expect_equal(are.params.created(param_names = "hello"),FALSE)
  expect_equal(are.params.created(param_names = TRUE),FALSE)
})

context("assignParamSettingsDS::expt::.has.correct.data")
test_that("everyting is not correct",
{
    expect_error(.has.correct.data())
    
})


context("assignParamSettingsDS::expt::.init.coordinates.ratios")
test_that("everyting is incorrect",
{
  expect_equal(.init.coordinates.ratios(param_names = c("first_var"), NULL), list())
  expect_equal(.init.coordinates.ratios(param_names = c("first_var", "second_var"), 3),list())
  expect_equal(.init.coordinates.ratios(param_names = c("first_var", "second_var","third_var"), "HELLO"),list())
})


options(param.name.struct = "sharing_setting")
options(param.sharing.allowed = 0) 

assignSharingSettingsDS()

context("assignParamSettingsDS::smk::not_allowed_sharing")
test_that("not allowed sharingt",
{
    
  expect_equal(exists("settings", where = 1), TRUE)
  expect_error(assignParamSettingsDS(),"SERVER::ERR::PARAM::001")
  expect_error(assignParamSettingsDS(123),"SERVER::ERR::PARAM::001")
  expect_equal(are.params.created(param_names = c("first_var_X")), FALSE)
  expect_equal(are.params.created(param_names = c("first_var_X", "second_var_X")),FALSE)
  expect_equal(are.params.created(param_names = c("first_var_X", "second_var_X","third_var_X")),FALSE)
  expect_equal(are.params.created(param_names = c("first_var_X",1)), FALSE)
  expect_equal(are.params.created(param_names = c(1,2,4)),FALSE)
  expect_equal(are.params.created(param_names = "hello"),FALSE)
  expect_equal(are.params.created(param_names = TRUE),FALSE)
})


context("assignParamSettingsDS::expt::.has.correct.data")
test_that("not allowed sharing",
{
  expect_equal(.has.correct.data(), FALSE)
  
})

context("assignParamSettingsDS::expt::.are.params.created")
test_that("not allowed sharing",
{
  expect_equal(are.params.created(param_names = c(1)),FALSE)
  expect_equal(are.params.created(param_names = c("first_var_X")),FALSE)
  assign("first_var",1, pos=1)
  expect_equal(are.params.created(param_names = c("first_var", 1)),FALSE)
  expect_equal(are.params.created(param_names = c("first_var", "second_var_X")),FALSE)
  expect_equal(are.params.created(param_names = "hello"),FALSE)
  expect_equal(are.params.created(param_names = 1),FALSE) 
  expect_equal(are.params.created(param_names = list()),FALSE)
})

context("assignParamSettingsDS::expt::.init.coordinates.ratios")
test_that("everyting is incorrect",
{
  expect_equal(.init.coordinates.ratios(param_names = c("first_var"), NULL), list())
  expect_equal(.init.coordinates.ratios(param_names = c("first_var", "second_var"), 3),list())
  expect_equal(.init.coordinates.ratios(param_names = c("first_var", "second_var","third_var"), "HELLO"),list())
})

options(param.name.struct = "sharing")
options(param.sharing.allowed = 1) 

assignSharingSettingsDS()

assign("first_var",1, pos=1)
assign("second_var",1, pos=1)
assign("third_var",1, pos=1)


#("Step 1")
encryptDataDS(TRUE, FALSE)
master.1 <- get("sharing",pos=1)

#("Step 2")
a <- getDataDS(master_mode =TRUE)
rm(sharing,pos=1)
assignDataDS(master_mode = FALSE,a$header,a$payload,a$property.a,a$property.b,a$property.c,a$property.d)
receiver.1 <- get("sharing",pos=1)

#("Step 3")
encryptDataDS(FALSE, FALSE)
receiver.2 <- get("sharing",pos=1)

#("step 4")
b <- getDataDS(master_mode =  FALSE)
rm(sharing,pos=1)
assign("sharing", master.1, pos=1)
assignDataDS(master_mode = TRUE, b$header,b$payload,b$property.a,b$property.b,b$property.c,b$property.d)
master.2 <- get("sharing",pos=1)


#("step 5")
decryptDataDS()
master.3 <- get("sharing",pos=1)


context("assignParamSettingsDS::smk::correct_outcome")
test_that("everything is correct",
{
  expect_equal(exists("settings", where = 1), TRUE)
  expect_equal(assignParamSettingsDS("first_var"),TRUE)
  expect_error(assignParamSettingsDS("first_var;second_var"),"SERVER::ERR::PARAM::008")
  
})

context("assignParamSettingsDS::expt::.has.correct.data")
test_that("everyting is correct",
{
  expect_equal(.has.correct.data(), TRUE)
  expect_equal(.has.correct.data(),TRUE)
  expect_equal(.has.correct.data(),TRUE)
})

context("assignParamSettingsDS::expt::.init.coordinates.ratios")
test_that("everyting is correct",
{
  sharing <- .init.coordinates.ratios(param_names = c("first_var"), get("sharing",pos = 1))
  expect_equal("index_x" %in% names(sharing), TRUE)
  expect_equal("index_y" %in% names(sharing), TRUE)
  expect_equal("param_names" %in% names(sharing), TRUE)
  expect_equal(length(sharing$index_x), 1)
  
  sharing <- .init.coordinates.ratios(param_names = c("first_var","second_var"), get("sharing",pos = 1))
  expect_equal("index_x" %in% names(sharing), TRUE)
  expect_equal("index_y" %in% names(sharing), TRUE)
  expect_equal("param_names" %in% names(sharing), TRUE)
  expect_equal(length(sharing$index_x), 2)
  
  sharing <- .init.coordinates.ratios(param_names = c("first_var","second_var","third_var"), get("sharing",pos = 1))
  expect_equal("index_x" %in% names(sharing), TRUE)
  expect_equal("index_y" %in% names(sharing), TRUE)
  expect_equal("param_names" %in% names(sharing), TRUE)
  expect_equal(length(sharing$index_x), 3)
  
  
})


context("assignParamSettingsDS::expt::.create_vector")
test_that("correct and incorrect arguments",
{
   outcome <- .create.vector(123)
  
   outcome <- .create.vector("")
   expect_equal(length(outcome),0)
   
   outcome <- .create.vector("a")
   expect_equal(length(outcome),1)
   
   outcome <-  outcome <- .create.vector("a;b")
   expect_equal(length(outcome),2)
   
   outcome <- .create.vector("a;b;c;d;e")
   expect_equal(length(outcome),5)
  
  
})