tests/testthat/test-golem-recommended.R

In databrew/hefpi: Health Equity and Financial Protection Indicators

context("golem tests")
#' @importFrom testthat expect_equal quasi_label expect_running expect

library(golem)

test_that("app ui", {
  ui <- app_ui()
  expect_shinytaglist(ui)
})

test_that("app server", {
  server <- app_server
  expect_is(server, "function")
})

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