diff --git a/tests/testthat/test-check_convergence.R b/tests/testthat/test-check_convergence.R
index 70ca5bb49..bde8eccdc 100644
--- a/tests/testthat/test-check_convergence.R
+++ b/tests/testthat/test-check_convergence.R
@@ -5,11 +5,11 @@ if (requiet("lme4")) {
   cbpp$x <- rnorm(nrow(cbpp))
   cbpp$x2 <- runif(nrow(cbpp))
 
-  model <- suppressWarnings(glmer(
+  model <- suppressMessages(suppressWarnings(lme4::glmer(
     cbind(incidence, size - incidence) ~ period + x + x2 + (1 + x | herd),
     data = cbpp,
     family = binomial()
-  ))
+  )))
 
   test_that("check_convergence", {
     expect_true(check_convergence(model))