Fix missing failing e2e tests

tests/testthat/test-shinytest2-tm_g_barchart_simple.R

@@ -127,7 +127,7 @@
 
   # Table is rendered asynchronously, wait a bit more
   app_driver$wait_for_idle()
-  testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("table")))
+  testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("table > table")))
 
   app_driver$stop()
 })
@@ -365,6 +365,6 @@
   FALSE,
   setup_fun = function(app_driver) {
     app_driver$set_active_module_input("label_bars", TRUE)
     return(NULL)
   }
 )

tests/testthat/test-shinytest2-tm_t_binary_outcome.R

@@ -221,11 +221,17 @@
 testthat::test_that("e2e - tm_t_binary_outcome: Deselection of responders throws validation error.", {
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_t_binary_outcome()
+  testthat::expect_false(
+    identical(
+      app_driver$get_text(".shiny-validation-message"),
+      "`Responders` field is empty"
+    )
+  )
   app_driver$set_active_module_input("responders", NULL)
   testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame())
   app_driver$expect_validation_error()
   testthat::expect_equal(
-    app_driver$get_text(app_driver$namespaces(TRUE)$module("responders_input .shiny-validation-message")),
+    app_driver$get_text(".shiny-validation-message"), # it works because is the only validation message present
     "`Responders` field is empty"
   )
   app_driver$stop()
@@ -256,7 +262,7 @@
   testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame())
   app_driver$expect_validation_error()
   testthat::expect_equal(
     app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")),
     "Treatment variable must be selected"
   )
   app_driver$stop()