tests/testthat/test-golem-recommended.R

In tcgaViz: Visualization Tool for the Cancer Genome Atlas Program (TCGA)

test_that("app ui", {
    ui <- app_ui()
    golem::expect_shinytaglist(ui)
    # Check that formals have not been removed
    fmls <- formals(app_ui)
    for (i in c("request")) {
        expect_true(i %in% names(fmls))
    }
})

test_that("app server", {
    server <- app_server
    expect_is(server, "function")
    # Check that formals have not been removed
    fmls <- formals(app_server)
    for (i in c("input", "output", "session")) {
        expect_true(i %in% names(fmls))
    }
})

# Configure this test to fit your need
test_that(
    "app launches", {
        golem::expect_running(sleep = 5)
  }
)