Wave 7 - tm_t_summary shinytests (#1172)

Part of #1108 --------- Co-authored-by: unknown <[email protected]>
insightsengineering · May 7, 2024 · 101d85b · 101d85b
1 parent 064e60e
commit 101d85b
Showing 1 changed file with 127 additions and 0 deletions.
diff --git a/tests/testthat/test-shinytest2-tm_t_summary.R b/tests/testthat/test-shinytest2-tm_t_summary.R
@@ -0,0 +1,127 @@
+app_driver_tm_t_summary <- function() {
+  data <- teal.data::teal_data() %>%
+    within({
+      ADSL <- teal.data::rADSL
+      ADSL$EOSDY[1] <- NA_integer_
+    })
+  teal.data::datanames(data) <- "ADSL"
+  teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys["ADSL"]
+
+  init_teal_app_driver(
+    data = data,
+    modules = tm_t_summary(
+      label = "Demographic Table",
+      dataname = "ADSL",
+      arm_var = teal.transform::choices_selected(c("ARM", "ARMCD"), "ARM"),
+      add_total = TRUE,
+      summarize_vars = teal.transform::choices_selected(
+        c("SEX", "RACE", "BMRKR2", "EOSDY", "DCSREAS", "AGE"),
+        c("SEX", "RACE")
+      ),
+      useNA = "ifany",
+      parentname = "ADSL",
+      total_label = default_total_label(),
+      na_level = default_na_str(),
+      numeric_stats = c(
+        "n", "mean_sd", "mean_ci", "median", "median_ci", "quantiles",
+        "range", "geom_mean"
+      ),
+      denominator = c("N", "n", "omit"),
+      drop_arm_levels = TRUE,
+      pre_output = NULL,
+      post_output = NULL,
+      basic_table_args = teal.widgets::basic_table_args()
+    )
+  )
+}
+
+testthat::test_that("e2e - tm_t_summary: Module initializes in teal without errors and produces table output.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_summary()
+  app_driver$expect_no_shiny_error()
+  app_driver$expect_no_validation_error()
+  testthat::expect_true(
+    app_driver$is_visible(app_driver$active_module_element("table-table-with-settings"))
+  )
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_t_summary: Starts with specified label, arm_var, summarize_vars, useNA, denominator.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_summary()
+  testthat::expect_equal(
+    app_driver$get_text("#teal-main_ui-root-active_tab > li.active > a"),
+    "Demographic Table"
+  )
+  testthat::expect_equal(
+    app_driver$get_active_module_input("arm_var-dataset_ADSL_singleextract-select"),
+    "ARM"
+  )
+  testthat::expect_equal(
+    app_driver$get_active_module_input("summarize_vars-dataset_ADSL_singleextract-select"),
+    c("SEX", "RACE")
+  )
+  testthat::expect_equal(
+    app_driver$get_active_module_input("useNA"),
+    "ifany"
+  )
+  testthat::expect_equal(
+    app_driver$get_active_module_input("denominator"),
+    "N"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that(
+  "e2e - tm_t_summary: Selecting arm_var-variable changes the table and does not throw validation errors.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_summary()
+    table_before <- app_driver$get_active_module_tws_output("table")
+    app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", "ARMCD")
+    testthat::expect_false(identical(table_before, app_driver$get_active_module_tws_output("table")))
+    app_driver$expect_no_validation_error()
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_t_summary: Deselection of arm_var-variable throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_summary()
+  app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL)
+  testthat::expect_identical(app_driver$get_active_module_tws_output("table"), data.frame())
+  app_driver$expect_validation_error()
+  testthat::expect_equal(
+    app_driver$active_module_element_text("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"),
+    "Please select 1 or 2 column variables"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that(
+  "e2e - tm_t_summary: Selecting summarize_vars-variable changes the table and does not throw validation errors.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_summary()
+    table_before <- app_driver$get_active_module_tws_output("table")
+    app_driver$set_active_module_input("summarize_vars-dataset_ADSL_singleextract-select", c("SEX", "AGE"))
+    testthat::expect_false(identical(table_before, app_driver$get_active_module_tws_output("table")))
+    app_driver$expect_no_validation_error()
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_t_summary: Deselection of summarize_vars-variable throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_summary()
+  app_driver$set_active_module_input("summarize_vars-dataset_ADSL_singleextract-select", NULL)
+  testthat::expect_identical(app_driver$get_active_module_tws_output("table"), data.frame())
+  app_driver$expect_validation_error()
+  testthat::expect_equal(
+    app_driver$active_module_element_text(
+      "summarize_vars-dataset_ADSL_singleextract-select_input .shiny-validation-message"
+    ),
+    "Please select a summarize variable"
+  )
+  app_driver$stop()
+})