test if plot is visible

insightsengineering · Apr 18, 2024 · 6e12416 · 6e12416
1 parent a8966f0
commit 6e12416
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-shinytest2-tm_g_association.R b/tests/testthat/test-shinytest2-tm_g_association.R
@@ -75,6 +75,14 @@ testthat::test_that("e2e - tm_g_association:
 
   app_driver$stop()
 })
+testthat::test_that("e2e - tm_g_association: module plot is visible", {
+  skip_if_too_deep(5)
+  app_driver <- app_driver_tm_g_association()
+
+  app_driver$is_visible(app_driver$active_module_element("myplot-plot_main > img"))
+
+  app_driver$stop()
+})
 
 
 testthat::test_that("e2e - tm_g_association: test if default radio buttons are checked", {