diff --git a/tests/testthat/test-parallel-stdout.R b/tests/testthat/test-parallel-stdout.R index 77ac0fa3d..975d9c808 100644 --- a/tests/testthat/test-parallel-stdout.R +++ b/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 + ) })