fix: 3 out 4 e2e tests

Author: averissimo

R/utils.R

@@ -293,7 +293,7 @@ assert_single_selection <- function(x,
 #'
 #' @keywords internal
 srv_decorate_teal_data <- function(id, data, decorators, expr, expr_is_reactive = FALSE) {
-  assert_reactive(data)
+  checkmate::assert_class(data, classes = "reactive")
   checkmate::assert_list(decorators, "teal_transform_module")
   checkmate::assert_flag(expr_is_reactive)
 

tests/testthat/helper-functions.R

@@ -10,3 +10,17 @@ mock_data_extract_spec <- function(dataname = "MOCK_DATASET",
     )
   )
 }
+
+normalize_math_italic_text <- function(text) {
+  # Unicode range for mathematical italic (uppercase/lowercase)
+  math_italic <- intToUtf8(seq(0x1D434, 0x1D467)) # A-z
+
+  # Standard letters
+  latin <- c(LETTERS, letters)
+
+  # Replace math italic letters with standard ones
+  stringr::str_replace_all(
+    text,
+    setNames(latin, unlist(stringr::str_split(math_italic, "")))
+  )
+}

tests/testthat/test-shinytest2-tm_outliers.R

@@ -198,7 +198,7 @@ testthat::test_that("e2e - tm_outliers:
   # IQR METHOD
   testthat::expect_identical(app_driver$get_active_module_input("method"), "IQR")
   testthat::expect_match(
-    app_driver$active_module_element_text("ui_outlier_help"),
+    normalize_math_italic_text(app_driver$active_module_element_text("ui_outlier_help")),
     "x<Q1−3×IQRx<Q1−3×IQRx",
     fixed = TRUE
   )
@@ -211,7 +211,7 @@ testthat::test_that("e2e - tm_outliers:
   app_driver$expect_no_shiny_error()
   testthat::expect_true(app_driver$is_visible(app_driver$active_module_element("zscore_slider")))
   testthat::expect_match(
-    app_driver$active_module_element_text("ui_outlier_help"),
+    normalize_math_italic_text(app_driver$active_module_element_text("ui_outlier_help")),
     "Zscore(x)<−3Zscore(x)<−3Zscore(x)",
     fixed = TRUE
   )
@@ -224,7 +224,7 @@ testthat::test_that("e2e - tm_outliers:
   app_driver$expect_no_shiny_error()
   testthat::expect_true(app_driver$is_visible(app_driver$active_module_element("percentile_slider")))
   testthat::expect_match(
-    app_driver$active_module_element_text("ui_outlier_help"),
+    normalize_math_italic_text(app_driver$active_module_element_text("ui_outlier_help")),
     "Percentile(x)<0.01Percentile(x)<0.01 Percentile(x)",
     fixed = TRUE
   )