tests/testthat/test-golem-recommended.R

In gowachin/shinyDiveR: shinyDiveR

library(golem)
library(shinyDiveR)

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

test_that("app server", {
  server <- shinyDiveR:::app_server
  expect_type(server, "closure")
})

# 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());shinyDiveR::run_app()"
#       )
#     )
#     Sys.sleep(5)
#     expect_true(x$is_alive())
#     x$kill()
#   }
# )