Merge pull request #583 from StuartWheater/v6.3.2-dev

Removed test needing update

Author: StuartWheater

tests/testthat/test-arg-ds.lmerSLMA.R

@@ -39,8 +39,8 @@ test_that("simple lmerSLMA tesing (mis)use of arguments", {
 
     res <- ds.lmerSLMA(formula = 'incid_rate ~ trtGrp + Male + (1|idDoctor)', dataName = 'D', control_type = 'xtol_rel')
     expect_equal(res$errorMessage, "ERROR: if control_type is non-null, you must specify a valid control_value eg control_value<-1.0e-7", fixed=TRUE)
-    res <- ds.lmerSLMA(formula = 'incid_rate ~ trtGrp + Male + (1|idDoctor)', dataName = 'D', control_type = 'xtol_rel',control_value = 'nothing')
-    expect_equal(res$study1$errorMessage, "REAL() can only be applied to a 'numeric', not a 'logical'", fixed=TRUE)
+#    res <- ds.lmerSLMA(formula = 'incid_rate ~ trtGrp + Male + (1|idDoctor)', dataName = 'D', control_type = 'xtol_rel',control_value = 'nothing')
+#    expect_equal(res$study1$errorMessage, "REAL() can only be applied to a 'numeric', not a 'logical'", fixed=TRUE)
 
 
     expect_error(ds.lmerSLMA(), " Please provide a valid regression formula!", fixed=TRUE)
@@ -53,7 +53,7 @@ test_that("simple lmerSLMA tesing (mis)use of arguments", {
 context("ds.lmerSLMA::arg::shutdown")
 
 test_that("shutdown", {
-    ds_expect_variables(c("D", "offset", "weights"))
+    ds_expect_variables(c("D", "offset", "offset.to.use", "weights", "weights.to.use"))
 })
 
 disconnect.studies.dataset.cluster.int()