Commented out 'pairwise' tests

Author: StuartWheater

tests/testthat/test-disc-ds.cor.R

@@ -46,12 +46,14 @@ test_that("simple D3 setup", {
     expect_equal(res$`dimensions of D3 in combined studies`[2], 4)
 })
 
-test_that("simple disc test, naAction='casewise.complete', type='split'", {
-    expect_error(ds.cor('D3', naAction='casewise.complete', type='split'), "There are some DataSHIELD errors, list them with datashield.errors()", fixed = TRUE)
+#test_that("simple disc test, naAction='casewise.complete', type='split'", {
+test_that("simple disc test, type='split'", {
+#    expect_error(ds.cor('D3', naAction='casewise.complete', type='split'), "There are some DataSHIELD errors, list them with datashield.errors()", fixed = TRUE)
+    expect_error(ds.cor('D3', type='split'), "There are some DataSHIELD errors, list them with datashield.errors()", fixed = TRUE)
     res.errors <- DSI::datashield.errors()
 
     expect_length(res.errors, 1)
-    expect_equal(res.errors$sim2, "Command 'corDS(\"D3\", NULL, \"casewise.complete\")' failed on 'sim2': Error while evaluating 'dsBase::corDS(\"D3\", NULL, \"casewise.complete\")' -> Error : ERROR: The ratio of the number of variables over the number of individual-level\n                          records exceeds the allowed threshold, there is a possible risk of disclosure\n", fixed = TRUE)
+    expect_equal(res.errors$sim2, "Command 'corDS(\"D3\", NULL)' failed on 'sim2': Error while evaluating 'dsBase::corDS(\"D3\", NULL)' -> Error : ERROR: The ratio of the number of variables over the number of individual-level\n                          records exceeds the allowed threshold, there is a possible risk of disclosure\n", fixed = TRUE)
 })
 
 test_that("simple disc test, naAction='pairwise.complete', type='split'", {
@@ -69,12 +71,14 @@ test_that("simple disc test, naAction='pairwise.complete', type='split'", {
 #    expect_true(is.na(res[[3]]$`Error message`))
 })
 
-test_that("simple disc test, naAction='casewise.complete', type='combine'", {
-    expect_error(ds.cor('D3', naAction='casewise.complete', type='combine'), "There are some DataSHIELD errors, list them with datashield.errors()", fixed = TRUE)
+#test_that("simple disc test, naAction='casewise.complete', type='combine'", {
+test_that("simple disc test, type='combine'", {
+#    expect_error(ds.cor('D3', naAction='casewise.complete', type='combine'), "There are some DataSHIELD errors, list them with datashield.errors()", fixed = TRUE)
+    expect_error(ds.cor('D3', type='combine'), "There are some DataSHIELD errors, list them with datashield.errors()", fixed = TRUE)
     res.errors <- DSI::datashield.errors()
 
     expect_length(res.errors, 1)
-    expect_equal(res.errors$sim2, "Command 'corDS(\"D3\", NULL, \"casewise.complete\")' failed on 'sim2': Error while evaluating 'dsBase::corDS(\"D3\", NULL, \"casewise.complete\")' -> Error : ERROR: The ratio of the number of variables over the number of individual-level\n                          records exceeds the allowed threshold, there is a possible risk of disclosure\n", fixed = TRUE)
+    expect_equal(res.errors$sim2, "Command 'corDS(\"D3\", NULL)' failed on 'sim2': Error while evaluating 'dsBase::corDS(\"D3\", NULL)' -> Error : ERROR: The ratio of the number of variables over the number of individual-level\n                          records exceeds the allowed threshold, there is a possible risk of disclosure\n", fixed = TRUE)
 
 #    expect_length(res, 5)
 #    expect_length(res$`Error message`, 3)