tests/testthat/test-golem-recommended.R

In dbca-wa/turtleviewer: WA Turtle Data Viewer

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", "turtleviewer::run_app()"))
#     Sys.sleep(5)
#     expect_true(x$is_alive()) # we never launch the app this way
#     x$kill()
#   }
# )