diff --git a/tests/manual-tests/SE_Drive.R b/tests/manual-tests/SE_Drive.R
index 06a6c1f88eccdc3d6eb41224b5c88fb92a4ba90b..bb512752d7526b7666651e9c47215535c30c5948 100644
--- a/tests/manual-tests/SE_Drive.R
+++ b/tests/manual-tests/SE_Drive.R
@@ -51,4 +51,4 @@ ul<-list( u1 =
 destype="ngene"
 
 sedrive <- sim_all(nosim = nosim, resps=resps, destype = destype,
-                   designpath = designpath, u=ul, bcoeff = bcoeff, decisiongroups = decisiongroups)
+                   designpath = designpath, u=ul, bcoeff = bcoeff, decisiongroups = decisiongroups, manipulations = manipulations)
diff --git a/tests/testthat/test-sim_all.R b/tests/testthat/test-sim_all.R
index ad48d779b70460651ff591056c3c6b4b96c1abc8..a1ea894b8b7dc8aa6c3e5618f80661bc34db416a 100644
--- a/tests/testthat/test-sim_all.R
+++ b/tests/testthat/test-sim_all.R
@@ -272,4 +272,4 @@ ul<- list(u1= list(
             v3 =V.3 ~ basc)
 )
 
-comprehensive_design_test(nosim=nosim, resps=resps, destype=destype, designpath=designpath, ul = ul, bcoeff = bcoeff, decisiongroups = dgFeed)
+## comprehensive_design_test(nosim=nosim, resps=resps, destype=destype, designpath=designpath, ul = ul, bcoeff = bcoeff, decisiongroups = dgFeed)