try test with fewer iterations

Author: bgoodri

tests/testthat/test_stan_glm.R

@@ -58,8 +58,8 @@ test_that("stan_glm throws appropriate errors, warnings, and messages", {
                regexp = "'QR' and 'sparse' cannot both be TRUE")
 
   # message: recommend QR if using meanfield vb
-  expect_message(capture.output(stan_glm(f, family = "poisson", 
-                                         algorithm = "fullrank", seed = SEED)), 
+  expect_message(capture.output(stan_glm(f, family = "poisson", iter = 2,
+                                         algorithm = "meanfield", seed = SEED)), 
                  regexp = "Setting 'QR' to TRUE can often be helpful")
 
   # require intercept for certain family and link combinations