Add tests for stdout/stderr from parallel workers

Author: gaborcsardi

tests/testthat/test-bare.R

@@ -16,6 +16,5 @@ stopifnot(
 )
 
 test_that("output", {
-  message("hello!")
   expect_true(TRUE)
 })

tests/testthat/test-describe.R

@@ -50,6 +50,4 @@ describe("describe", {
   it("should not be possible to access variables from other specs (2)", {
     expect_false(exists("some_test_var"))
   })
-  withr::local_options(width = 60)
-  print(1:100)
 })

tests/testthat/test-parallel-stdout.R

@@ -0,0 +1,17 @@
+test_that("stdout/stderr in parallel code", {
+  skip_on_covr()
+  withr::local_envvar(TESTTHAT_PARALLEL = "TRUE")
+  out <- capture.output(suppressMessages(testthat::test_local(
+    test_path("test-parallel", "stdout"),
+    reporter = "summary"
+  )))
+  expect_true("> test-stdout-2.R: This is a message!" %in% out)
+  expect_true(any(grepl("test-stdout-3.R:  [1]  1  2  3", out, fixed = TRUE)))
+
+  out2 <- capture.output(suppressMessages(testthat::test_local(
+    test_path("test-parallel", "stdout"),
+    reporter = "progress"
+  )))
+  expect_true("> test-stdout-2.R: This is a message!" %in% out2)
+  expect_true(any(grepl("test-stdout-3.R:  [1]  1  2  3", out2, fixed = TRUE)))
+})

tests/testthat/test-parallel/stdout/DESCRIPTION

@@ -0,0 +1,20 @@
+Package: setup
+Title: What the Package Does (One Line, Title Case)
+Version: 0.0.0.9000
+Authors@R: 
+    person(given = "First",
+           family = "Last",
+           role = c("aut", "cre"),
+           email = "[email protected]",
+           comment = c(ORCID = "YOUR-ORCID-ID"))
+Description: What the package does (one paragraph).
+License: `use_mit_license()`, `use_gpl3_license()` or friends to
+    pick a license
+Encoding: UTF-8
+LazyData: true
+Roxygen: list(markdown = TRUE)
+RoxygenNote: 7.1.1
+Suggests: 
+    testthat
+Config/testthat/parallel: true
+Config/testthat/edition: 3

tests/testthat/test-parallel/stdout/NAMESPACE

@@ -0,0 +1,2 @@
+# Generated by roxygen2: do not edit by hand
+

tests/testthat/test-parallel/stdout/tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(ok)
+
+test_check("ok")

tests/testthat/test-parallel/stdout/tests/testthat/test-stdout-1.R

@@ -0,0 +1,3 @@
+test_that("this is good", {
+  expect_equal(2 * 2, 4)
+})

tests/testthat/test-parallel/stdout/tests/testthat/test-stdout-2.R

@@ -0,0 +1,4 @@
+test_that("this messages", {
+  message("This is a message!")
+  expect_true(TRUE)
+})

tests/testthat/test-parallel/stdout/tests/testthat/test-stdout-3.R

@@ -0,0 +1,4 @@
+test_that("this prints and skips", {
+  print(1:30)
+  skip(paste("This is", Sys.getpid()))
+})