tests/testthat/test-golem-recommended.R

In martindut/inndxweb: Inndx Web

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())
    expect_true(TRUE)
    # x$kill()
  }
)