archieve/tests/testthat/test-golem-recommended.R

In ybkamaleri/bat2bat: Sammenlikner Batch Filer

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