test update

Author: ddsjoberg

tests/testthat/_snaps/ard_stats_mood_test.md

@@ -1,16 +1,11 @@
 # ard_stats_mood_test() works
 
     Code
-      as.data.frame(ard_stats_mood_test(cards::ADSL, by = SEX, variable = AGE))
+      as.data.frame(ard_stats_mood_test(cards::ADSL[1:10, ], by = SEX, variable = AGE))
     Output
-        group1 variable         context   stat_name             stat_label
-      1    SEX      AGE stats_mood_test   statistic            Z-Statistic
-      2    SEX      AGE stats_mood_test     p.value                p-value
-      3    SEX      AGE stats_mood_test      method                 method
-      4    SEX      AGE stats_mood_test alternative Alternative Hypothesis
-                                 stat fmt_fun warning error
-      1                     0.1292194       1    NULL  NULL
-      2                     0.8971841       1    NULL  NULL
-      3 Mood two-sample test of scale    NULL    NULL  NULL
-      4                     two.sided    NULL    NULL  NULL
+        group1 variable         context   stat_name             stat_label                          stat fmt_fun warning error
+      1    SEX      AGE stats_mood_test   statistic            Z-Statistic                     0.6741999       1    NULL  NULL
+      2    SEX      AGE stats_mood_test     p.value                p-value                     0.5001843       1    NULL  NULL
+      3    SEX      AGE stats_mood_test      method                 method Mood two-sample test of scale    NULL    NULL  NULL
+      4    SEX      AGE stats_mood_test alternative Alternative Hypothesis                     two.sided    NULL    NULL  NULL
 

tests/testthat/test-ard_stats_mood_test.R

@@ -1,6 +1,7 @@
 skip_if_pkg_not_installed("broom")
 
 test_that("ard_stats_mood_test() works", {
+  withr::local_options(list(width = 150))
   expect_error(
     ard_moodtest <-
       cards::ADSL |>
@@ -20,7 +21,7 @@ test_that("ard_stats_mood_test() works", {
 
   # errors are properly handled
   expect_snapshot(
-    cards::ADSL |>
+    cards::ADSL[1:10, ] |>
       ard_stats_mood_test(by = SEX, variable = AGE) |>
       as.data.frame()
   )