tests/testthat/test-mod_viz_display.R

In datasketch/DSAppTemplate: DS App Template

context("mod viz display")

library(golem)

test_that("app ui", {
  ui <- mod_viz_display_ui("viz_display_ui")
  expect_shinytaglist(ui)
})

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