adding a test

insightsengineering · Jul 1, 2024 · 2e7356d · 2e7356d
1 parent 17874db
commit 2e7356d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/tests/testthat/_snaps/construction_helpers.md b/tests/testthat/_snaps/construction_helpers.md
@@ -57,11 +57,11 @@
     Code
       data(api, package = "survey")
       design <- survey::svydesign(id = ~1, weights = ~pw, data = apistrat)
-      construct_model(data = design, formula = api00 ~ api99, method = survey::svyglm,
-      method.args = list(iamnotavalidparameter = stats::gaussian()))
+      construct_model(data = design, formula = api00 ~ api99, method = "svyglm",
+      method.args = list(iamnotavalidparameter = stats::gaussian()), package = "survey")
     Condition
       Error in `construct_model()`:
-      ! There was an error evaluating the model
+      ! There was an error evaluating the model `svyglm(formula = api00 ~ api99, design = ., iamnotavalidparameter = stats::gaussian())`
       Caused by error in `glm.control()`:
       ! unused argument (iamnotavalidparameter = list("gaussian", "identity", function (mu) 
       mu, function (eta) 

diff --git a/tests/testthat/test-construction_helpers.R b/tests/testthat/test-construction_helpers.R
@@ -140,8 +140,9 @@ test_that("construct_model() messaging", {
       construct_model(
         data = design,
         formula = api00 ~ api99,
-        method = survey::svyglm,
-        method.args = list(iamnotavalidparameter = stats::gaussian())
+        method = "svyglm",
+        method.args = list(iamnotavalidparameter = stats::gaussian()),
+        package = "survey"
       )
     }
   )