tests/testthat/test-golem-recommended.R

In jmbuhr/ShinyLipids: ShinyLipids

context("golem tests")
library(golem)

test_that("app ui", {
  ui <- app_ui()
  expect_shinytag(ui)
})

test_that("app server", {
  server <- app_server
  expect_is(server, "function")
})

# Configure this test to fit your need
if (interactive()) {
  test_that(
    "app launches", {
      skip_on_cran()
      skip_on_ci()
      skip_on_travis()
      x <- processx::process$new(
        "R",
        c(
          "-e",
          'path <- system.file("extdata/exampleDatabase.db", package = "ShinyLipids"); databaseConnection <- DBI::dbConnect(RSQLite::SQLite(), path); ShinyLipids::run_app(db = databaseConnection)'
        ),
        stdout = "myLog.txt",
        stderr = "myErr.txt"
      )
      Sys.sleep(5)
      expect_true(x$is_alive())
      x$kill()
    }
  )
}