tests/testthat/test-golem-recommended.R

In zac-garland/shiny.proxy.golem: Shiny Proxy Golem

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")
})

if(interactive()){
  # 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", 
          "pkgload::load_all(here::here());run_app()"
        )
      )
      Sys.sleep(5)
      expect_true(x$is_alive())
      x$kill()
    }
  )

}