tests: use expect_match()

mlr-org · Dec 14, 2024 · f2d07f6 · f2d07f6
1 parent ae3dcb6
commit f2d07f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_LearnerClust.R b/tests/testthat/test_LearnerClust.R
@@ -36,7 +36,7 @@ test_that("empty predict set (#421)", {
   hout = resampling$instantiate(task)
   model = learner$train(task, hout$train_set(1))
   pred = learner$predict(task, hout$test_set(1))
-  expect_true(any(grepl("No data to predict on", learner$log$msg, fixed = TRUE)))
+  expect_match(learner$log$msg, "No data to predict on", fixed = TRUE, all = FALSE)
 })
 
 test_that("assignment saving works", {