tests/testthat/test-summary_snapshot_module.R

In Sage-Bionetworks/projectliveModules: Modules for Project Live shiny apps

test_that("summary_snapshot_module_ui", {
  expect_type(summary_snapshot_module_ui("id"), "list")
})


test_that("summary_snapshot_module_server", {
  shiny::testServer(
    summary_snapshot_module_server,
    args = list(
      "data" = shiny::reactive(get_synthetic_data()),
      "config" = shiny::reactive(get_summary_snapshot_config())
    ),
    {
      expect_type(output$header_text, "character")
      expect_type(output$box1, "list")
      expect_type(output$box2, "list")
      expect_type(output$box3, "list")
      expect_type(output$box4, "list")
    }
  )
})

test_that("summary_snapshot_module_server_error", {
  shiny::testServer(
    summary_snapshot_module_server,
    args = list(
      "data" = shiny::reactive(get_synthetic_data()),
      "config" = shiny::reactive(list())
    ),
    {
      expect_error(config_is_valid())
    }
  )
})