diff --git a/tests/testthat/test-shinytest2-tm_g_km.R b/tests/testthat/test-shinytest2-tm_g_km.R
new file mode 100644
index 0000000000..934d08de0a
--- /dev/null
+++ b/tests/testthat/test-shinytest2-tm_g_km.R
@@ -0,0 +1,379 @@
+app_driver_tm_g_km <- function() {
+  data <- teal.data::teal_data() %>%
+    within({
+      library(dplyr)
+      ADSL <- tmc_ex_adsl
+      ADTTE <- tmc_ex_adtte %>%
+        rename(
+          VALUE_UNIT = AVALU,
+          ANALYSIS_VAL = AVAL,
+          CENSORING = CNSR
+        )
+    })
+
+  datanames <- c("ADSL", "ADTTE")
+  teal.data::datanames(data) <- datanames
+  teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datanames]
+
+  arm_ref_comp <- list(
+    ACTARMCD = list(
+      ref = "ARM B",
+      comp = c("ARM A", "ARM C")
+    ),
+    ARM = list(
+      ref = "B: Placebo",
+      comp = c("A: Drug X", "C: Combination")
+    )
+  )
+
+  init_teal_app_driver(
+    data = data,
+    modules = tm_g_km(
+      label = "Kaplan-Meier Plot",
+      dataname = "ADTTE",
+      arm_var = teal.transform::choices_selected(
+        teal.transform::variable_choices(data[["ADSL"]], c("ARM", "ARMCD", "ACTARMCD")),
+        "ARM"
+      ),
+      paramcd = teal.transform::choices_selected(
+        teal.transform::value_choices(data[["ADTTE"]], "PARAMCD", "PARAM"),
+        "OS"
+      ),
+      arm_ref_comp = arm_ref_comp,
+      strata_var = teal.transform::choices_selected(
+        teal.transform::variable_choices(data[["ADSL"]], c("SEX", "BMRKR2")),
+        "SEX"
+      ),
+      facet_var = teal.transform::choices_selected(
+        teal.transform::variable_choices(data[["ADSL"]], c("SEX", "BMRKR2")),
+        NULL
+      ),
+      time_unit_var = teal.transform::choices_selected(
+        teal.transform::variable_choices(data[["ADTTE"]], "VALUE_UNIT"),
+        "VALUE_UNIT",
+        fixed = TRUE
+      ),
+      aval_var = teal.transform::choices_selected(
+        teal.transform::variable_choices(data[["ADTTE"]], "ANALYSIS_VAL"),
+        "ANALYSIS_VAL",
+        fixed = TRUE
+      ),
+      cnsr_var = teal.transform::choices_selected(
+        teal.transform::variable_choices(data[["ADTTE"]], "CENSORING"),
+        "CENSORING",
+        fixed = TRUE
+      ),
+      conf_level = teal.transform::choices_selected(c(0.95, 0.9, 0.8, -1), 0.95, keep_order = TRUE)
+    )
+  )
+}
+
+testthat::test_that("e2e - tm_g_km: Module initializes in teal without errors and produces plot output.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$expect_no_shiny_error()
+  app_driver$expect_no_validation_error()
+
+  testthat::expect_match(
+    app_driver$get_active_module_pws_output("myplot"),
+    "data:image/png;base64,"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that(
+  "e2e - tm_g_km: Starts with specified paramcd, aval_var, cnsr_var, facet_var, arm_var, compare_arms, strata_var.",
+  {
+    skip_if_too_deep(5)
+    app_driver <- app_driver_tm_g_km()
+
+    testthat::expect_equal(
+      app_driver$get_text("#teal-main_ui-root-active_tab > li.active > a"),
+      "Kaplan-Meier Plot"
+    )
+
+    testthat::expect_equal(
+      app_driver$get_active_module_input("paramcd-dataset_ADTTE_singleextract-filter1-vals"),
+      "OS"
+    )
+
+    testthat::expect_equal(
+      app_driver$get_active_module_input(ns_des_input("aval_var", "ADTTE", "select")),
+      "ANALYSIS_VAL"
+    )
+
+    testthat::expect_equal(
+      app_driver$get_active_module_input(ns_des_input("cnsr_var", "ADTTE", "select")),
+      "CENSORING"
+    )
+
+    testthat::expect_null(
+      app_driver$get_active_module_input(ns_des_input("facet_var", "ADSL", "select"))
+    )
+
+    testthat::expect_equal(
+      app_driver$get_active_module_input(ns_des_input("arm_var", "ADSL", "select")),
+      "ARM"
+    )
+
+    testthat::expect_true(app_driver$get_active_module_input("compare_arms"))
+
+    testthat::expect_equal(
+      app_driver$get_active_module_input(ns_des_input("strata_var", "ADSL", "select")),
+      "SEX"
+    )
+    app_driver$stop()
+  }
+)
+
+testthat::test_that("e2e - tm_g_km: Changing {paramcd} changes the plot without errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  plot_before <- app_driver$get_active_module_pws_output("myplot")
+  app_driver$set_active_module_input("paramcd-dataset_ADTTE_singleextract-filter1-vals", "EFS")
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Changing {facet_var} changes the plot without errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  plot_before <- app_driver$get_active_module_pws_output("myplot")
+  app_driver$set_active_module_input(ns_des_input("facet_var", "ADSL", "select"), "SEX")
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Changing {arm_var} changes the plot without errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  plot_before <- app_driver$get_active_module_pws_output("myplot")
+  app_driver$set_active_module_input(ns_des_input("arm_var", "ADSL", "select"), "ACTARMCD")
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Changing {compare_arms} changes the plot without errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  plot_before <- app_driver$get_active_module_pws_output("myplot")
+  app_driver$set_active_module_input("compare_arms", FALSE)
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Changing {strata_var} changes the plot without errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  plot_before <- app_driver$get_active_module_pws_output("myplot")
+  app_driver$set_active_module_input(ns_des_input("strata_var", "ADSL", "select"), "BMRKR2")
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Deselecting {paramcd} throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$set_active_module_input("paramcd-dataset_ADTTE_singleextract-filter1-vals", character(0))
+  app_driver$expect_validation_error()
+  testthat::expect_match(
+    app_driver$active_module_element_text(
+      "paramcd-dataset_ADTTE_singleextract-filter1-vals_input .shiny-validation-message"
+    ),
+    "An endpoint is required"
+  )
+  testthat::expect_match(
+    app_driver$active_module_element_text("myplot-plot-with-settings"),
+    "An endpoint is required"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Deselecting {arm_var} throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$set_active_module_input(ns_des_input("arm_var", "ADSL", "select"), character(0))
+  app_driver$expect_validation_error()
+  testthat::expect_match(
+    app_driver$active_module_element_text(
+      "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"
+    ),
+    "Treatment variable must be selected"
+  )
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Deselecting {compare_arms} sets it to FALSE.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$set_active_module_input("compare_arms", NULL)
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(app_driver$get_active_module_input("compare_arms"))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Deselecting {strata_var} does not throw errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$set_active_module_input(ns_des_input("strata_var", "ADSL", "select"), character(0))
+  app_driver$expect_no_validation_error()
+  app_driver$stop()
+})
+
+# groups ----------------------------------------------------------------------------------------------------------
+
+testthat::test_that("e2e - tm_g_km: Starts with specified groups.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+
+  testthat::expect_equal(
+    app_driver$get_active_module_input("buckets"),
+    list(
+      Ref = list("B: Placebo"),
+      Comp = list("A: Drug X", "C: Combination")
+    )
+  )
+
+  testthat::expect_false(app_driver$get_active_module_input("combine_comp_arms"))
+
+  app_driver$stop()
+})
+
+# comparison settings ---------------------------------------------------------------------------------------------
+
+testthat::test_that("e2e - tm_g_km: Starts with specified collapsed comparison settings.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+
+  app_driver$is_visible(app_driver$active_module_element("pval_method_coxph"))
+  app_driver$is_visible(app_driver$active_module_element("ties_coxph"))
+
+  testthat::expect_equal(app_driver$get_active_module_input("pval_method_coxph"), "log-rank")
+  testthat::expect_equal(
+    app_driver$active_module_element_text("pval_method_coxph-label"),
+    "p-value method for Coxph (Hazard Ratio)"
+  )
+  testthat::expect_equal(app_driver$get_active_module_input("ties_coxph"), "exact")
+  testthat::expect_equal(
+    app_driver$active_module_element_text("ties_coxph-label"),
+    "Ties for Coxph (Hazard Ratio)"
+  )
+
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Changing {pval_method_coxph} changes the plot without errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  plot_before <- app_driver$get_active_module_pws_output("myplot")
+  app_driver$set_active_module_input("pval_method_coxph", "wald")
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Changing {ties_coxph} changes the plot without errors.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  plot_before <- app_driver$get_active_module_pws_output("myplot")
+  app_driver$set_active_module_input("ties_coxph", "breslow")
+  app_driver$expect_no_validation_error()
+  testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Deselecting {pval_method_coxph} gives no validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$set_active_module_input("pval_method_coxph", character(0))
+  app_driver$expect_no_validation_error()
+  app_driver$stop()
+})
+
+testthat::test_that("e2e - tm_g_km: Deselecting {ties_coxph} gives no validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$set_active_module_input("ties_coxph", character(0))
+  app_driver$expect_no_validation_error()
+  app_driver$stop()
+})
+
+# plot settings ---------------------------------------------------------------------------------------------------
+
+testthat::test_that("e2e - tm_g_km: Starts with specified collapsed additional plot settings.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("xticks")))
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("yval")))
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("font_size")))
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("rel_height_plot")))
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("show_ci_ribbon")))
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("show_km_table")))
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("conf_level")))
+  testthat::expect_false(app_driver$is_visible(app_driver$active_module_element("xlab")))
+
+  testthat::expect_equal(app_driver$get_active_module_input("xticks"), "")
+  testthat::expect_equal(app_driver$get_active_module_input("yval"), "Survival probability")
+  testthat::expect_equal(app_driver$get_active_module_input("font_size"), 11)
+  testthat::expect_equal(app_driver$get_active_module_input("rel_height_plot"), 80)
+  testthat::expect_false(app_driver$get_active_module_input("show_ci_ribbon"))
+  testthat::expect_true(app_driver$get_active_module_input("show_km_table"))
+  testthat::expect_equal(app_driver$get_active_module_input("conf_level"), "0.95")
+  testthat::expect_equal(app_driver$get_active_module_input("xlab"), "Time")
+
+  testthat::expect_equal(
+    app_driver$active_module_element_text("xticks-label"),
+    "Specify break intervals for x-axis e.g. 0 ; 500"
+  )
+  testthat::expect_match(app_driver$active_module_element_text("yval-label"), "Value on y-axis", fixed = FALSE)
+  testthat::expect_equal(app_driver$active_module_element_text("font_size-label"), "Table Font Size")
+  testthat::expect_equal(app_driver$active_module_element_text("rel_height_plot-label"), "Relative Height of Plot (%)")
+  testthat::expect_equal(app_driver$active_module_element_text("xlab-label"), "X-axis label")
+
+  app_driver$stop()
+})
+
+test_that_plot_settings <- function(input_id, new_value) {
+  testthat::test_that(
+    sprintf(
+      "e2e - tm_g_km: Changing '%s' changes the plot and does not throw validation errors.",
+      input_id
+    ),
+    {
+      skip_if_too_deep(5)
+      app_driver <- app_driver_tm_g_km()
+      plot_before <- app_driver$get_active_module_pws_output("myplot")
+      app_driver$set_active_module_input(input_id, new_value)
+      testthat::expect_false(identical(plot_before, app_driver$get_active_module_pws_output("myplot")))
+      app_driver$expect_no_validation_error()
+      app_driver$stop()
+    }
+  )
+}
+
+test_that_plot_settings("xticks", 50)
+test_that_plot_settings("yval", "Failure probability")
+test_that_plot_settings("font_size", 12)
+test_that_plot_settings("rel_height_plot", 70)
+test_that_plot_settings("show_ci_ribbon", TRUE)
+test_that_plot_settings("show_km_table", FALSE)
+test_that_plot_settings("conf_level", 0.8)
+test_that_plot_settings("xlab", "Time2")
+
+testthat::test_that("e2e - tm_g_km: Deselecting {conf_level} throws validation error.", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_km()
+  app_driver$set_active_module_input("conf_level", -1)
+  app_driver$expect_validation_error()
+  testthat::expect_match(
+    app_driver$active_module_element_text("myplot-plot-with-settings"),
+    "Confidence level must be between 0 and 1."
+  )
+  app_driver$stop()
+})