Skip to content

Commit

Permalink
Wave 4 - tm_t_events_by_grade shinytests (#1158)
Browse files Browse the repository at this point in the history 
Part of #1108

---------

Co-authored-by: unknown <[email protected]>
  • Loading branch information
@vedhav @kartikeyakirar
vedhav and kartikeyakirar authored May 7, 2024
1 parent e3b603a commit 5e7d4ff
Showing 1 changed file with 211 additions and 0 deletions.
211 changes: 211 additions & 0 deletions tests/testthat/test-shinytest2-tm_t_events_by_grade.R
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,211 @@
app_driver_tm_t_events_by_grade <- function() { # nolint: object_length
data <- teal.data::teal_data()
data <- within(data, {
library(dplyr)

ADSL <- teal.data::rADSL
lbls_adae <- col_labels(teal.data::rADAE)
ADAE <- teal.data::rADAE %>%
mutate_if(is.character, as.factor)
col_labels(ADAE) <- lbls_adae
})

datanames <- c("ADSL", "ADAE")
teal.data::datanames(data) <- datanames
teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames]

init_teal_app_driver(
data = data,
modules = tm_t_events_by_grade(
label = "Adverse Events by Grade Table",
dataname = "ADAE",
parentname = "ADSL",
arm_var = teal.transform::choices_selected(c("ARM", "ARMCD"), "ARM"),
llt = teal.transform::choices_selected(
choices = teal.transform::variable_choices(data[["ADAE"]], c("AETERM", "AEDECOD")),
selected = c("AEDECOD")
),
hlt = teal.transform::choices_selected(
choices = teal.transform::variable_choices(data[["ADAE"]], c("AEBODSYS", "AESOC")),
selected = "AEBODSYS"
),
grade = teal.transform::choices_selected(
choices = teal.transform::variable_choices(data[["ADAE"]], c("AETOXGR", "AESEV")),
selected = "AETOXGR"
),
grading_groups = list(
`Any Grade (%)` = c("1", "2", "3", "4", "5"), `Grade 1-2 (%)` =
c("1", "2"), `Grade 3-4 (%)` = c("3", "4"), `Grade 5 (%)` = "5"
),
col_by_grade = FALSE,
prune_freq = 0,
prune_diff = 0,
add_total = TRUE,
total_label = default_total_label(),
na_level = default_na_str(),
drop_arm_levels = TRUE,
pre_output = NULL,
post_output = NULL,
basic_table_args = teal.widgets::basic_table_args()
)
)
}

testthat::test_that(
"e2e - tm_t_events_by_grade: Module initializes in teal without errors and produces table output.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
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_events_by_grade: Starts with specified label, arm_var, hlt, llt,
grade, prune_freq, prune_diff, add_total, col_by_grade, drop_arm_levels.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
testthat::expect_equal(
app_driver$get_text("#teal-main_ui-root-active_tab > li.active > a"),
"Adverse Events by Grade 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("hlt-dataset_ADAE_singleextract-select"),
"AEBODSYS"
)
testthat::expect_equal(
app_driver$get_active_module_input("llt-dataset_ADAE_singleextract-select"),
"AEDECOD"
)
testthat::expect_equal(
app_driver$get_active_module_input("grade-dataset_ADAE_singleextract-select"),
"AETOXGR"
)
testthat::expect_equal(
app_driver$get_active_module_input("prune_freq"),
0
)
testthat::expect_equal(
app_driver$get_active_module_input("prune_diff"),
0
)
testthat::expect_true(app_driver$get_active_module_input("add_total"))
testthat::expect_false(app_driver$get_active_module_input("col_by_grade"))
testthat::expect_true(app_driver$get_active_module_input("drop_arm_levels"))
app_driver$stop()
}
)

testthat::test_that(
"e2e - tm_t_events_by_grade: Selecting arm_var-variable changes the table and does not throw validation errors.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
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_events_by_grade: Deselection of arm_var-variable throws validation error.", {
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
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"),
"A treatment variable is required"
)
app_driver$stop()
})

testthat::test_that(
"e2e - tm_t_events_by_grade: Selecting hlt-variable changes the table and does not throw validation errors.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
table_before <- app_driver$get_active_module_tws_output("table")
app_driver$set_active_module_input("hlt-dataset_ADAE_singleextract-select", "AESOC")
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_events_by_grade: Deselection of hlt-variable changes the table and does not throw validation errors.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
table_before <- app_driver$get_active_module_tws_output("table")
app_driver$set_active_module_input("hlt-dataset_ADAE_singleextract-select", NULL)
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_events_by_grade: Selecting llt-variable changes the table and does not throw validation errors.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
table_before <- app_driver$get_active_module_tws_output("table")
app_driver$set_active_module_input("llt-dataset_ADAE_singleextract-select", "AETERM")
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_events_by_grade: Deselection of llt-variable changes the table and does not throw validation errors.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
table_before <- app_driver$get_active_module_tws_output("table")
app_driver$set_active_module_input("llt-dataset_ADAE_singleextract-select", NULL)
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_events_by_grade: Selecting grade-variable changes the table and does not throw validation errors.",
{
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
table_before <- app_driver$get_active_module_tws_output("table")
app_driver$set_active_module_input("grade-dataset_ADAE_singleextract-select", "AESEV")
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_events_by_grade: Deselection of grade-variable throws validation error.", {
skip_if_too_deep(5)
app_driver <- app_driver_tm_t_events_by_grade()
app_driver$set_active_module_input("grade-dataset_ADAE_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("grade-dataset_ADAE_singleextract-select_input .shiny-validation-message"),
"An event grade is required"
)
app_driver$stop()
})

0 comments on commit 5e7d4ff

Please sign in to comment.