Fix one selector in tm_shift_by_grade (#1445)

osenan · osenan · llrs-roche · web-flow · commit 40b54891771f · 2025-11-26T23:21:55.000-03:00
# Pull Request Part of #1440 Companion #1441 While reviewing [this PR](#1444) I found that one e2e test on the edited files was failing. The fix was simple, I was working on a similar fix for `g_pp` modules. Please test it with `devtools::test(filter = "tm_t_shift_by")` --------- Signed-off-by: Oriol Senan <35930244+osenan@users.noreply.github.com> Co-authored-by: osenan <oriol@praenoscere.com> Co-authored-by: Lluís Revilla <185338939+llrs-roche@users.noreply.github.com>
diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R
@@ -85,7 +85,7 @@ testthat::test_that(
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_shift_by_grade()
     testthat::expect_equal(
-      app_driver$get_text("#teal-teal_modules-active_tab .active > a"),
+      app_driver$get_text("a.nav-link.active"),
       "Grade Laboratory Abnormality Table"
     )
     testthat::expect_equal(

Original file line number	Diff line number	Diff line change
`@@ -85,7 +85,7 @@ testthat::test_that(`
`85`	`85`	`skip_if_too_deep(5)`
`86`	`86`	`app_driver <- app_driver_tm_t_shift_by_grade()`
`87`	`87`	`testthat::expect_equal(`
`88`		`- app_driver$get_text("#teal-teal_modules-active_tab .active > a"),`
	`88`	`+ app_driver$get_text("a.nav-link.active"),`
`89`	`89`	`"Grade Laboratory Abnormality Table"`
`90`	`90`	`)`
`91`	`91`	`testthat::expect_equal(`