tests/testthat/test-golem-recommended.R

In aljrico/vetapp: vetapp

context("golem tests")

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_on_cran()
  skip_on_travis()
  skip_on_appveyor()
  x <- processx::process$new(
    "R",
    c(
      "-e",
      "setwd('../../'); pkgload::load_all();run_app()"
    )
  )
  Sys.sleep(5)
  expect_true(x$is_alive())
  x$kill()
})