fix links

m7pr · m7pr · commit 701c5fa09675 · 2025-11-26T14:14:38.000+01:00
diff --git a/tests/testthat/test-shinytest2-tm_t_exposure.R b/tests/testthat/test-shinytest2-tm_t_exposure.R
@@ -88,7 +88,7 @@ testthat::test_that(
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_exposure()
     testthat::expect_equal(
-      app_driver$get_text("#teal-teal_modules-active_tab .active > a"),
+      app_driver$get_text("a.nav-link.active"),
       "Duration of Exposure Table"
     )
     testthat::expect_equal(
diff --git a/tests/testthat/test-shinytest2-tm_t_logistic.R b/tests/testthat/test-shinytest2-tm_t_logistic.R
@@ -70,7 +70,7 @@ testthat::test_that(
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_logistic()
     testthat::expect_equal(
-      app_driver$get_text("#teal-teal_modules-active_tab .active > a"),
+      app_driver$get_text("a.nav-link.active"),
       "Logistic Regression"
     )
     testthat::expect_equal(
diff --git a/tests/testthat/test-shinytest2-tm_t_mult_events.R b/tests/testthat/test-shinytest2-tm_t_mult_events.R
@@ -56,7 +56,7 @@ testthat::test_that(
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_mult_events()
     testthat::expect_equal(
-      app_driver$get_text("#teal-teal_modules-active_tab .active > a"),
+      app_driver$get_text("a.nav-link.active"),
       "Concomitant Medications by Medication Class and Preferred Name"
     )
     testthat::expect_equal(
diff --git a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R
@@ -38,7 +38,7 @@ testthat::test_that("e2e - tm_t_pp_basic_info: Starts with specified label, pati
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_t_pp_basic_info()
   testthat::expect_equal(
-    app_driver$get_text("#teal-teal_modules-active_tab .active > a"),
+    app_driver$get_text("a.nav-link.active"),
     "Basic Info"
   )
   testthat::expect_equal(
diff --git a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R
@@ -64,7 +64,7 @@ testthat::test_that(
     app_driver <- app_driver_tm_t_pp_laboratory()
 
     testthat::expect_equal(
-      app_driver$get_text("#teal-teal_modules-active_tab .active > a"),
+      app_driver$get_text("a.nav-link.active"),
       "Vitals"
     )
     testthat::expect_equal(

Original file line number	Diff line number	Diff line change
`@@ -88,7 +88,7 @@ testthat::test_that(`
`88`	`88`	`skip_if_too_deep(5)`
`89`	`89`	`app_driver <- app_driver_tm_t_exposure()`
`90`	`90`	`testthat::expect_equal(`
`91`		`- app_driver$get_text("#teal-teal_modules-active_tab .active > a"),`
	`91`	`+ app_driver$get_text("a.nav-link.active"),`
`92`	`92`	`"Duration of Exposure Table"`
`93`	`93`	`)`
`94`	`94`	`testthat::expect_equal(`
Original file line number	Diff line number	Diff line change
`@@ -70,7 +70,7 @@ testthat::test_that(`
`70`	`70`	`skip_if_too_deep(5)`
`71`	`71`	`app_driver <- app_driver_tm_t_logistic()`
`72`	`72`	`testthat::expect_equal(`
`73`		`- app_driver$get_text("#teal-teal_modules-active_tab .active > a"),`
	`73`	`+ app_driver$get_text("a.nav-link.active"),`
`74`	`74`	`"Logistic Regression"`
`75`	`75`	`)`
`76`	`76`	`testthat::expect_equal(`
Original file line number	Diff line number	Diff line change
`@@ -56,7 +56,7 @@ testthat::test_that(`
`56`	`56`	`skip_if_too_deep(5)`
`57`	`57`	`app_driver <- app_driver_tm_t_mult_events()`
`58`	`58`	`testthat::expect_equal(`
`59`		`- app_driver$get_text("#teal-teal_modules-active_tab .active > a"),`
	`59`	`+ app_driver$get_text("a.nav-link.active"),`
`60`	`60`	`"Concomitant Medications by Medication Class and Preferred Name"`
`61`	`61`	`)`
`62`	`62`	`testthat::expect_equal(`
Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ testthat::test_that("e2e - tm_t_pp_basic_info: Starts with specified label, pati`
`38`	`38`	`skip_if_too_deep(5)`
`39`	`39`	`app_driver <- app_driver_tm_t_pp_basic_info()`
`40`	`40`	`testthat::expect_equal(`
`41`		`- app_driver$get_text("#teal-teal_modules-active_tab .active > a"),`
	`41`	`+ app_driver$get_text("a.nav-link.active"),`
`42`	`42`	`"Basic Info"`
`43`	`43`	`)`
`44`	`44`	`testthat::expect_equal(`
Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,7 @@ testthat::test_that(`
`64`	`64`	`app_driver <- app_driver_tm_t_pp_laboratory()`
`65`	`65`
`66`	`66`	`testthat::expect_equal(`
`67`		`- app_driver$get_text("#teal-teal_modules-active_tab .active > a"),`
	`67`	`+ app_driver$get_text("a.nav-link.active"),`
`68`	`68`	`"Vitals"`
`69`	`69`	`)`
`70`	`70`	`testthat::expect_equal(`