tests/testthat/test-mod_data_upload.R

In datasketch/DSAppTemplate: DS App Template

context("mod data upload")

library(golem)

test_that("app ui", {
  ui <- mod_data_upload_ui("data_upload_ui")
  expect_shinytaglist(ui)
})

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