Simplify/robustify reactlog version checking test

rstudio · Dec 5, 2024 · af4e23a · af4e23a
1 parent 8f5fb1d
commit af4e23a
Showing 1 changed file with 4 additions and 8 deletions.
diff --git a/tests/testthat/test-reactlog.R b/tests/testthat/test-reactlog.R
@@ -129,13 +129,9 @@ test_that("message logger appears", {
 
 
 test_that("reactlog_version is as expected", {
-  suggests <- strsplit(packageDescription("shiny")$Suggests, ",")[[1]]
-  reactlog <- trimws(
-    grep("reactlog", suggests, value = TRUE)
-  )
-  expect_length(reactlog, 1)
-  expect_equal(
-    reactlog,
-    sprintf("reactlog (>= %s)", reactlog_min_version)
+  expect_match(
+    packageDescription("shiny")$Suggests,
+    # The space between reactlog and the version number can include \n
+    sprintf("\\breactlog\\s+\\Q(>= %s)\\E", reactlog_min_version)
   )
 })