tests: use expect_match

mlr-org · Jun 7, 2024 · 7ec4ddb · 7ec4ddb
1 parent 4b4ff75
commit 7ec4ddb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test_encapsulate.R b/tests/testthat/test_encapsulate.R
@@ -47,12 +47,12 @@ test_that("timeout", {
   res = encapsulate("evaluate", .f = f, .args = list(x = 1), .timeout = 1)
   expect_null(res$result)
   expect_true("error" %in% res$log$class)
-  expect_true(any(grepl("time limit", res$log$msg, fixed = TRUE)))
+  expect_match(res$log$msg, "time limit", fixed = TRUE)
 
   res = encapsulate("callr", .f = f, .args = list(x = 1), .timeout = 1)
   expect_null(res$result)
   expect_true("error" %in% res$log$class)
-  expect_true(any(grepl("time limit", res$log$msg, fixed = TRUE)))
+  expect_match(res$log$msg, "time limit", fixed = TRUE)
 })