Add snapshot test/suppress message

r-lib · Sep 8, 2021 · 7725d4a · 7725d4a
1 parent 6db1a7b
commit 7725d4a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 5 deletions.
diff --git a/tests/testthat/_snaps/defer.md b/tests/testthat/_snaps/defer.md
@@ -0,0 +1,9 @@
+# defer()'s global env facilities work
+
+    Code
+      defer(print("howdy"), envir = globalenv())
+    Message <simpleMessage>
+      Setting deferred event(s) on global environment.
+        * Execute (and clear) with `withr::deferred_run()`.
+        * Clear (without executing) with `withr::deferred_clear()`.
+
diff --git a/tests/testthat/test-defer.R b/tests/testthat/test-defer.R
@@ -21,10 +21,7 @@ test_that("defer()'s global env facilities work", {
   expect_null(get_handlers(globalenv()))
   Sys.setenv(abcdefg = "abcdefg")
 
-  expect_message(
-    defer(print("howdy"), envir = globalenv()),
-    "Setting deferred event"
-  )
+  expect_snapshot(defer(print("howdy"), envir = globalenv()))
   expect_message(
     local_envvar(c(abcdefg = "tuvwxyz"), .local_envir = globalenv()),
     NA
@@ -37,7 +34,7 @@ test_that("defer()'s global env facilities work", {
   expect_output(deferred_run(globalenv()), "howdy")
   expect_equal(Sys.getenv("abcdefg"), "abcdefg")
 
-  defer(print("never going to happen"), envir = globalenv())
+  expect_message(defer(print("never going to happen"), envir = globalenv()))
   deferred_clear(globalenv())
 
   h <- get_handlers(globalenv())