tests/testthat/test-cohort_selection_server.R

In CRI-iAtlas/iatlas.modules2: iAatlas Modules2

test_that("cohort_selection_server", {
  shiny::testServer(
    cohort_selection_server,
    {
      session$setInputs("cohort_mode_choice" = "Cohort Selection")

      expect_true(display_cohort_mode_choice())
      expect_type(group_key_tbl(), "list")
      cohort_object <- session$getReturned()()
      expect_equal(class(cohort_object), c("Cohort", "R6"))
    }
  )
})