tests/testthat/test-expt-decryptDataDS.R

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

context("decryptData::expt::no_settings")
test_that("does not exist",
{
   if (exists("settings_ds_share",where = 1))
   {
     rm("settings_ds_share", pos=1)
   }
   expect_error(ddds.is.received.data.valid())
   expect_equal(ddds.decrypt.received.matrix(), NULL)
   expect_error(ddds.is.decrypted.data.valid())
   expect_error(decryptDataDS())
})

options(dsSS_sharing_param.name.struct = "sharing")
options(dsSS_sharing.allowed = 0)



context("decryptData::expt::not_allowed")
test_that("not_allowed",
{
   expect_error(assignSharingSettingsDS())
   expect_equal(exists("settings_ds_share", where = 1), TRUE)
   expect_error(ddds.is.received.data.valid())
   expect_equal(ddds.decrypt.received.matrix(), NULL)
   expect_error(ddds.is.decrypted.data.valid())
   expect_error(decryptDataDS())
})

options(dsSS_sharing_param.name.struct = "sharing")
options(dsSS_sharing.allowed = 1)



context("decryptData::expt::no_encryption")
test_that("does exists",
{
   expect_true(assignSharingSettingsDS())
   expect_error(ddds.is.received.data.valid())
   expect_equal(ddds.decrypt.received.matrix(), NULL)
   expect_error(ddds.is.decrypted.data.valid())
   expect_true(decryptDataDS())
})

settings <- get("settings_ds_share",pos = 1)
#complete set steps to reach the point of decryption
encryptDataDS(TRUE, FALSE)
assign("master.1" ,get("sharing",pos=1), pos = 1)


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


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

#("step 4")
assign("b",getDataDS(master_mode =  FALSE), pos = 1)

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



context("decryptData::expt::data_has_been_encrypted")
test_that("data has been encrypted correctly",
{
   expect_equal(exists(settings$name.struct.sharing, where = 1), TRUE)
   expect_equal(ddds.is.received.data.valid(settings, master.2), TRUE)
   decrypted.data <- ddds.decrypt.received.matrix(master.2$masking, master.2$received)
   rows   <- nrow(decrypted.data)
   cols   <- ncol(decrypted.data)
   result <- t(master.2$concealing) %*% receiver.2$concealing

   expect_equal(is.matrix (decrypted.data), TRUE)
   expect_equal(rows == cols, TRUE)
   expect_equal(decryptDataDS(),TRUE)
   expected.list  <- c(settings$received,settings$masking, settings$decrypted)
   expect_equal(ddds.is.decrypted.data.valid(settings, sharing),TRUE)
})