Update test-ard_wilcoxtest.R

insightsengineering · Feb 9, 2024 · 069ed9b · 069ed9b
1 parent bc35534
commit 069ed9b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/tests/testthat/test-ard_wilcoxtest.R b/tests/testthat/test-ard_wilcoxtest.R
@@ -74,7 +74,7 @@ test_that("ard_paired_wilcoxtest() works", {
   )
 
   # errors are properly handled
-  expect_snapshot(
+  expect_equal(
     ADSL_paired |>
       dplyr::mutate(
         ARM = ifelse(dplyr::row_number() == 1L, "3rd ARM", ARM)
@@ -83,6 +83,8 @@ test_that("ard_paired_wilcoxtest() works", {
         by = ARM, variable = AGE, id = USUBJID,
         correct = FALSE, conf.int = TRUE
       ) |>
-      as.data.frame()
+      dplyr::pull(error) |>
+      getElement(1L),
+    "\033[38;5;232mThe `by` argument must have two and only two levels.\033[39m"
   )
 })