tests/testthat/test-golem-recommended.R

In ReviewR: A Light-Weight, Portable Tool for Reviewing Individual Patient Records

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

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

# Configure this test to fit your need
# Define function manually, until golem updated beyond v0.2.1 on CRAN
expect_running <- function(sleep){
  skip_on_cran()
  skip_on_travis()
  skip_on_appveyor()
  x <- processx::process$new(
    "R", 
    c(
      "-e", 
      "pkgload::load_all(here::here());run_app()"
    )
  )
  Sys.sleep(sleep)
  expect_true(x$is_alive())
  x$kill()
} 
test_that(
  "app launches",{
    skip_if_not(interactive())
    # golem::expect_running(sleep = 5)
    expect_running(sleep = 5)
  }
)