tests/testthat/test-call_module_server.R

In CRI-iAtlas/iatlas-app: What the Package Does (One Line, Title Case)

test_that("module isn't shown", {
  shiny::testServer(
    app = call_module_server,
    args = list(
      "cohort_obj" = shiny::reactiveVal(iatlas.modules2::pcawg_immune_subtype_cohort_obj),
      "server_function" = tumor_microenvironment_cell_proportions_server,
      "ui_function" = tumor_microenvironment_cell_proportions_ui,
      "test_function" = shiny::reactiveVal(
        function(cohort_obj) {
          cohort_obj$has_features("leukocyte_fraction")
        }
      )
    ),
    expr = {
      expect_false(display_module())
      expect_type(output$ui, "list")
    }
  )
})

test_that("module is shown", {
  shiny::testServer(
    app = call_module_server,
    args = list(
      "cohort_obj" = shiny::reactiveVal(iatlas.modules2::pcawg_immune_subtype_cohort_obj),
      "server_function" = tumor_microenvironment_type_fractions_server,
      "ui_function" = tumor_microenvironment_type_fractions_ui,
      "test_function" = shiny::reactiveVal(function(cohort_obj) {
        cohort_obj$has_features("age_at_diagnosis")
      })
    ),
    expr = {
      expect_true(display_module())
      expect_type(output$ui, "list")
    }
  )
})