tests/testthat/test-golem-recommended.R

In FielDHub: A Shiny App for Design of Experiments in Life Sciences

test_that("app ui", {
  ui <- app_ui()
  golem::expect_shinytaglist(ui)
  fmls <- formals(app_ui)
  for (i in c("request")){
    expect_true(i %in% names(fmls))
  }
})

test_that("app server", {
  server <- app_server
  expect_type(server, "closure")
  fmls <- formals(app_server)
  for (i in c("input", "output", "session")){
    expect_true(i %in% names(fmls))
  }
})