Merge branch '503-introduce-shinytest2@main' into tdm@503-introduce-s…

…hinytest2@main

R/TealAppDriver.R

@@ -104,8 +104,9 @@ TealAppDriver <- R6::R6Class( # nolint
     #' @return The `TealAppDriver` object invisibly.
     navigate_teal_tab = function(tabs) {
       for (tab in tabs) {
+        root <- "root"
         self$set_input(
-          sprintf("teal-main_ui-%s-active_tab", private$modules$label),
+          sprintf("teal-main_ui-%s-active_tab", root),
           get_unique_labels(tab),
           wait_ = FALSE
         )

tests/testthat/test-shinytest2-reporter.R

@@ -35,3 +35,47 @@ testthat::test_that("e2e: reporter tab is only created when a module has reporte
   app_without_reporter$stop()
   app_with_reporter$stop()
 })
+
+testthat::test_that("e2e: adding a report card in a module adds it in the report previewer tab", {
+  app <- TealAppDriver$new(
+    data = simple_teal_data(),
+    modules = report_module(label = "Module with Reporter")
+  )
+  app$wait_for_idle(timeout = default_idle_timeout)
+
+  app$click(NS(app$active_module_ns(), "reporter-add_report_card_simple-add_report_card_button"))
+  app$wait_for_idle(timeout = default_idle_timeout)
+
+  app$set_input(
+    NS(app$active_module_ns(), "reporter-add_report_card_simple-label"),
+    "Card name"
+  )
+  app$set_input(
+    NS(app$active_module_ns(), "reporter-add_report_card_simple-label"),
+    "Card name"
+  )
+  app$set_input(
+    NS(app$active_module_ns(), "reporter-add_report_card_simple-comment"),
+    "Card comment"
+  )
+
+  app$click(NS(app$active_module_ns(), "reporter-add_report_card_simple-add_card_ok"))
+
+  app$navigate_teal_tab("Report previewer")
+
+  accordian_selector <- sprintf("#%s-pcards .accordion-toggle", app$active_module_ns())
+  app$click(selector = accordian_selector)
+
+
+  testthat::expect_match(
+    app$get_text(selector = accordian_selector),
+    "Card 1: Card name"
+  )
+
+  testthat::expect_match(
+    app$get_text(selector = "#card1 pre"),
+    "Card comment"
+  )
+
+  app$stop()
+})