From 70f62563bba6bf579be88d4af0d6b3b470882741 Mon Sep 17 00:00:00 2001
From: simonpcouch <simonpatrickcouch@gmail.com>
Date: Mon, 21 Oct 2024 09:15:12 -0700
Subject: [PATCH] transition from `expect_message()`

---
 tests/testthat/_snaps/ergm.md        | 7 +++++++
 tests/testthat/_snaps/stats-htest.md | 7 +++++++
 tests/testthat/test-ergm.R           | 6 ++----
 tests/testthat/test-stats-htest.R    | 2 +-
 4 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/tests/testthat/_snaps/ergm.md b/tests/testthat/_snaps/ergm.md
index 9f4fb7378..3a555b1ff 100644
--- a/tests/testthat/_snaps/ergm.md
+++ b/tests/testthat/_snaps/ergm.md
@@ -14,3 +14,10 @@
       Warning in `tidy.ergm()`:
       Exponentiating but model didn't use log or logit link.
 
+# glance.ergm
+
+    Code
+      gl3 <- glance(gest, deviance = TRUE, mcmc = TRUE)
+    Message
+      Though `glance` was supplied `mcmc = TRUE`, the model was not fittedusing MCMC, so the corresponding columns will be omitted.
+
diff --git a/tests/testthat/_snaps/stats-htest.md b/tests/testthat/_snaps/stats-htest.md
index 8034c5a3d..2c4289d88 100644
--- a/tests/testthat/_snaps/stats-htest.md
+++ b/tests/testthat/_snaps/stats-htest.md
@@ -1,3 +1,10 @@
+# tidy.htest/oneway.test
+
+    Code
+      td <- tidy(ot)
+    Message
+      Multiple parameters; naming those columns num.df, den.df
+
 # augment.htest (chi squared test)
 
     Code
diff --git a/tests/testthat/test-ergm.R b/tests/testthat/test-ergm.R
index 91b40d477..392700fd7 100644
--- a/tests/testthat/test-ergm.R
+++ b/tests/testthat/test-ergm.R
@@ -51,10 +51,8 @@ test_that("tidy.ergm", {
 test_that("glance.ergm", {
   gl <- glance(gest, deviance = TRUE)
   gl2 <- glance(gest3, deviance = TRUE, mcmc = TRUE)
-  expect_message(
-    gl3 <- glance(gest, deviance = TRUE, mcmc = TRUE)
-  )
-
+  expect_snapshot(gl3 <- glance(gest, deviance = TRUE, mcmc = TRUE))
+  
   check_glance_outputs(gl)
   check_dims(gl, expected_cols = 9)
   check_dims(gl2, expected_cols = 12)
diff --git a/tests/testthat/test-stats-htest.R b/tests/testthat/test-stats-htest.R
index 4baae8271..c8aab1c25 100644
--- a/tests/testthat/test-stats-htest.R
+++ b/tests/testthat/test-stats-htest.R
@@ -20,7 +20,7 @@ test_that("tidy.htest same as glance.htest", {
 test_that("tidy.htest/oneway.test", {
   mtcars$cyl <- as.factor(mtcars$cyl)
   ot <- oneway.test(mpg ~ cyl, mtcars)
-  expect_message(td <- tidy(ot))
+  expect_snapshot(td <- tidy(ot))
   gl <- glance(ot)
 
   check_tidy_output(td)