tests/testthat/test-golem-recommended.R

In RE-QDA/requal: Shiny Application for Computer-Assisted Qualitative Data Analysis

# test_that("app ui", {
#   ui <- app_ui() # (mode = "local")
#   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
  print(class(server))
  expect_type(server, "closure")
  # 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)
  }
)