Capture emitted output as a test (#2756)

* capture emitted output in tests * also confirm invisible(), why not
r-lib · Feb 16, 2025 · a0233d2 · a0233d2
1 parent d85ec68
commit a0233d2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-methods.R b/tests/testthat/test-methods.R
@@ -134,7 +134,7 @@ test_that("print.lints works", {
 
   tmp <- withr::local_tempfile()
   stopifnot(file.create(tmp))
-  expect_invisible(print(lint(tmp)))
+  expect_message(expect_invisible(print(lint(tmp))), "No lints found")
 })
 
 test_that("split.lint works as intended", {

diff --git a/tests/testthat/test-rstudio_markers.R b/tests/testthat/test-rstudio_markers.R
@@ -114,5 +114,5 @@ test_that("rstudio_source_markers apply to print within rstudio", {
   expect_output(print(l), "matched", fixed = TRUE)
 
   l <- lint(empty, seq_linter())
-  expect_output(print(l), "matched", fixed = TRUE)
+  expect_message(expect_output(print(l), "matched", fixed = TRUE), "No lints found")
 })