Better test for parallel output (#2179)

Author: gaborcsardi

tests/testthat/test-parallel-stdout.R

@@ -5,13 +5,28 @@ test_that("stdout/stderr in parallel code", {
     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)))
+  expect_match(
+    out,
+    "> test-stdout-2.R: This is a message!",
+    fixed = TRUE,
+    all = FALSE
+  )
+  expect_match(out, "test-stdout-3.R:  [1]  1  2  3", fixed = TRUE, all = FALSE)
 
   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)))
+  expect_match(
+    out2,
+    "> test-stdout-2.R: This is a message!",
+    fixed = TRUE,
+    all = FALSE
+  )
+  expect_match(
+    out2,
+    "test-stdout-3.R:  [1]  1  2  3",
+    fixed = TRUE,
+    all = FALSE
+  )
 })