tests/testthat/test-mod_data_processing.R

In datasketch/DSAppTemplate: DS App Template

context("mod data processing")

library(golem)

test_that("app ui", {
  ui <- mod_data_processing_ui("data_processing_ui")
  expect_shinytaglist(ui)
})

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