Warnings coming from inside of server are not captured as a test warning

[pawelru]

Consider a following example:

testthat::test_that("dummy description", {
    app <- shiny::shinyApp(
        ui = shiny::fluidPage({
            shiny::tags$p(id = "hello", "hello")
        }),
        server = function(input, output) {
            warning(1)
            NULL
        }
    )
    app_drier <- shinytest2::AppDriver$new(app)
    app_drier$expect_unique_names()
})
#> Test passed 😀

^{Created on 2024-03-25 with reprex v2.1.0}

This is a false positive. I would expect it to throw a test warning. Similar to what it does in case of warning is in UI function:

testthat::test_that("dummy description", {
    app <- shiny::shinyApp(
        ui = shiny::fluidPage({
            warning(1)
            shiny::tags$p(id = "hello", "hello")
        }),
        server = function(input, output) {
            NULL
        }
    )
    app_drier <- shinytest2::AppDriver$new(app)
    app_drier$expect_unique_names()
})
#> ── Warning: dummy description ──────────────────────────────────────────────────
#> 1
#> Backtrace:
#>     ▆
#>  1. ├─shiny::shinyApp(...)
#>  2. │ └─shiny:::uiHttpHandler(ui, uiPattern)
#>  3. │   └─base::force(ui)
#>  4. └─shiny::fluidPage(...)
#>  5.   ├─shiny::bootstrapPage(...)
#>  6.   │ └─rlang::list2(...)
#>  7.   └─htmltools::div(class = "container-fluid", ...)
#>  8.     └─rlang::dots_list(...)

^{Created on 2024-03-25 with reprex v2.1.0}