Wave 6 - tm_t_pp_prior_medication shinytests (#1167)

Part of #1108 --------- Co-authored-by: unknown <[email protected]>
insightsengineering · May 7, 2024 · bd0d80a · bd0d80a
1 parent da7584a
commit bd0d80a
Showing 1 changed file with 252 additions and 0 deletions.
diff --git a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R
@@ -0,0 +1,252 @@
+app_driver_tm_t_pp_prior_medication <- function() { # nolint: object_length
+  data <- teal.data::teal_data()
+  data <- within(data, {
+    library(dplyr)
+    ADCM <- teal.data::rADCM
+    ADSL <- teal.data::rADSL %>%
+      filter(USUBJID %in% ADCM$USUBJID)
+    ADCM$CMASTDTM <- ADCM$ASTDTM
+    ADCM$CMAENDTM <- ADCM$AENDTM
+  })
+
+  datanames <- c("ADSL", "ADCM")
+  teal.data::datanames(data) <- datanames
+  keys <- teal.data::default_cdisc_join_keys[datanames]
+  keys["ADCM", "ADCM"] <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4")
+  teal.data::join_keys(data) <- keys
+
+  init_teal_app_driver(
+    data = data,
+    modules = tm_t_pp_prior_medication(
+      label = "Prior Medication",
+      dataname = "ADCM",
+      parentname = "ADSL",
+      patient_col = "USUBJID",
+      atirel = teal.transform::choices_selected(
+        choices = teal.transform::variable_choices(data[["ADCM"]], c("ATIREL", "SEX")),
+        selected = "ATIREL"
+      ),
+      cmdecod = teal.transform::choices_selected(
+        choices = teal.transform::variable_choices(data[["ADCM"]], c("CMDECOD", "RACE")),
+        selected = "CMDECOD"
+      ),
+      cmindc = teal.transform::choices_selected(
+        choices = teal.transform::variable_choices(data[["ADCM"]], c("CMINDC", "SEX")),
+        selected = "CMINDC"
+      ),
+      cmstdy = teal.transform::choices_selected(
+        choices = teal.transform::variable_choices(data[["ADCM"]], c("ASTDY", "AGE")),
+        selected = "ASTDY"
+      ),
+      pre_output = NULL,
+      post_output = NULL
+    )
+  )
+}
+
+testthat::test_that(
+  "e2e - tm_t_pp_prior_medication: Module initializes in teal without errors and produces table output.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_pp_prior_medication()
+    app_driver$expect_no_shiny_error()
+    app_driver$expect_no_validation_error()
+    testthat::expect_true(
+      app_driver$is_visible(app_driver$active_module_element("prior_medication_table"))
+    )
+    app_driver$stop()
+  }
+)
+
+testthat::test_that(
+  "e2e - tm_t_pp_prior_medication: Starts with specified label, patient_id, cmdecod, atirel, cmindc, cmstdy.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_pp_prior_medication()
+    testthat::expect_equal(
+      app_driver$get_text("#teal-main_ui-root-active_tab > li.active > a"),
+      "Prior Medication"
+    )
+    testthat::expect_equal(
+      app_driver$get_active_module_input("patient_id"),
+      "AB12345-CHN-3-id-128"
+    )
+    testthat::expect_equal(
+      app_driver$get_active_module_input("cmdecod-dataset_ADCM_singleextract-select"),
+      "CMDECOD"
+    )
+    testthat::expect_equal(
+      app_driver$get_active_module_input("atirel-dataset_ADCM_singleextract-select"),
+      "ATIREL"
+    )
+    testthat::expect_equal(
+      app_driver$get_active_module_input("cmindc-dataset_ADCM_singleextract-select"),
+      "CMINDC"
+    )
+    testthat::expect_equal(
+      app_driver$get_active_module_input("cmstdy-dataset_ADCM_singleextract-select"),
+      "ASTDY"
+    )
+    app_driver$stop()
+  }
+)
+
+testthat::test_that(
+  "e2e - tm_t_pp_prior_medication: Selecting patient_id changes the table and does not throw validation errors.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_pp_prior_medication()
+    table_before <- rvest::html_table(
+      app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))
+    )[[1]]
+    app_driver$set_active_module_input("patient_id", "AB12345-USA-1-id-261")
+    testthat::expect_false(
+      identical(
+        nrow(table_before),
+        nrow(rvest::html_table(app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))))
+      )
+    )
+    app_driver$expect_no_validation_error()
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of patient_id throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_pp_prior_medication()
+  app_driver$set_active_module_input("patient_id", NULL)
+  app_driver$expect_validation_error()
+  testthat::expect_equal(
+    app_driver$active_module_element_text("patient_id_input .shiny-validation-message"),
+    "Please select patient id"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that(
+  "e2e - tm_t_pp_prior_medication: Selecting cmdecod-variable changes the table and does not throw validation errors.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_pp_prior_medication()
+    table_before <- rvest::html_table(
+      app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))
+    )[[1]]
+    app_driver$set_active_module_input("cmdecod-dataset_ADCM_singleextract-select", "RACE")
+    testthat::expect_false(
+      identical(
+        nrow(table_before),
+        nrow(rvest::html_table(app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))))
+      )
+    )
+    app_driver$expect_no_validation_error()
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmdecod-variable throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_pp_prior_medication()
+  app_driver$set_active_module_input("cmdecod-dataset_ADCM_singleextract-select", NULL)
+  app_driver$expect_validation_error()
+  testthat::expect_equal(
+    app_driver$active_module_element_text("cmdecod-dataset_ADCM_singleextract-select_input .shiny-validation-message"),
+    "A medication decoding variable is required"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that(
+  "e2e - tm_t_pp_prior_medication: Selecting atirel-variable changes the table and does not throw validation errors.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_pp_prior_medication()
+    table_before <- rvest::html_table(
+      app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))
+    )[[1]]
+    app_driver$set_active_module_input("atirel-dataset_ADCM_singleextract-select", "SEX")
+    testthat::expect_false(
+      identical(
+        nrow(table_before),
+        nrow(rvest::html_table(app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))))
+      )
+    )
+    app_driver$expect_no_validation_error()
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of atirel-variable throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_pp_prior_medication()
+  app_driver$set_active_module_input("atirel-dataset_ADCM_singleextract-select", NULL)
+  app_driver$expect_validation_error()
+  testthat::expect_equal(
+    app_driver$active_module_element_text("atirel-dataset_ADCM_singleextract-select_input .shiny-validation-message"),
+    "An ATIREL variable is required"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that(
+  "e2e - tm_t_pp_prior_medication: Selecting cmdecod-variable changes the table and does not throw validation errors.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_pp_prior_medication()
+    table_before <- rvest::html_table(
+      app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))
+    )[[1]]
+    app_driver$set_active_module_input("cmindc-dataset_ADCM_singleextract-select", "SEX")
+    testthat::expect_false(
+      identical(
+        nrow(table_before),
+        nrow(rvest::html_table(app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))))
+      )
+    )
+    app_driver$expect_no_validation_error()
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmindc-variable throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_pp_prior_medication()
+  app_driver$set_active_module_input("cmindc-dataset_ADCM_singleextract-select", NULL)
+  app_driver$expect_validation_error()
+  testthat::expect_equal(
+    app_driver$active_module_element_text("cmindc-dataset_ADCM_singleextract-select_input .shiny-validation-message"),
+    "A CMINDC variable is required"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that(
+  "e2e - tm_t_pp_prior_medication: Selecting cmdecod-variable changes the table and does not throw validation errors.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_t_pp_prior_medication()
+    table_before <- rvest::html_table(
+      app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))
+    )[[1]]
+    app_driver$set_active_module_input("cmstdy-dataset_ADCM_singleextract-select", "AGE")
+    testthat::expect_false(
+      identical(
+        nrow(table_before),
+        nrow(rvest::html_table(app_driver$get_html_rvest(app_driver$active_module_element("prior_medication_table"))))
+      )
+    )
+    app_driver$expect_no_validation_error()
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmstdy-variable throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_t_pp_prior_medication()
+  app_driver$set_active_module_input("cmstdy-dataset_ADCM_singleextract-select", NULL)
+  app_driver$expect_validation_error()
+  testthat::expect_equal(
+    app_driver$active_module_element_text("cmstdy-dataset_ADCM_singleextract-select_input .shiny-validation-message"),
+    "A CMSTDY variable is required"
+  )
+  app_driver$stop()
+})