Tweak use_catch() messaging

And add a test

Author: hadley

R/test-compiled-code.R

@@ -392,16 +392,11 @@ use_catch <- function(dir = getwd()) {
   output_path <- file.path(dir, "R", "catch-routine-registration.R")
   cat(transformed, file = output_path)
 
-  cli::cli_inform("> Added C++ unit testing infrastructure.")
-  cli::cli_inform(
-    "> Please ensure you have {.field LinkingTo: testthat} in your DESCRIPTION."
-  )
-  cli::cli_inform(
-    "> Please ensure you have {.field Suggests: xml2} in your DESCRIPTION."
-  )
-  cli::cli_inform(
-    "> Please ensure you have {.code useDynLib({pkg}, .registration = TRUE)} in your NAMESPACE."
-  )
+  cli::cli_inform(c(
+    v = "Added C++ unit testing infrastructure.",
+    i = "Please ensure you have {.field LinkingTo: testthat} in your DESCRIPTION.",
+    i = "Please ensure you have {.field Suggests: xml2} in your DESCRIPTION."
+  ))
 }
 
 get_routine <- function(package, routine) {

tests/testthat/_snaps/test-compiled-code.md

@@ -19,3 +19,12 @@
       Error in `run_cpp_tests()`:
       ! `package` must be a single string, not the number 123.
 
+# useful messaging
+
+    Code
+      use_catch(path)
+    Message
+      v Added C++ unit testing infrastructure.
+      i Please ensure you have LinkingTo: testthat in your DESCRIPTION.
+      i Please ensure you have Suggests: xml2 in your DESCRIPTION.
+

tests/testthat/test-test-compiled-code.R

@@ -14,5 +14,13 @@ test_that("validates inputs", {
   })
 })
 
+test_that("useful messaging", {
+  path <- withr::local_tempdir()
+  writeLines("Package: foo", file.path(path, "DESCRIPTION"))
+  dir.create(file.path(path, "R"))
+
+  expect_snapshot(use_catch(path))
+})
+
 skip_if_not_installed("xml2")
 run_cpp_tests("testthat")