tests: Add a unit test for warn_on_error()

Appsilon · Feb 20, 2024 · 976b8b9 · 976b8b9
1 parent 9e05918
commit 976b8b9
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test-app.R b/tests/testthat/test-app.R
@@ -80,6 +80,15 @@ describe("normalize_server()", {
   })
 })
 
+describe("warn_on_error()", {
+  it("catches an error and prints it with an appended message", {
+    expect_message(
+      warn_on_error(stop("some_error"), "some_message"),
+      "some_message: some_error"
+    )
+  })
+})
+
 describe("with_head_tags()", {
   it("attaches a head tag to UI", {
     ui <- function(request) shiny::tags$div("test")