Added snapshot for cat_plot_html

NIFU-NO · Aug 24, 2024 · 9b2ed3d · 9b2ed3d
1 parent 83ac2ea
commit 9b2ed3d
Show file tree

Hide file tree

Showing 3 changed files with 211 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -60,7 +60,8 @@ Suggests:
 	  tibble,
     withr,
     quarto,
-    spelling
+    spelling,
+    vdiffr
 Config/testthat/edition: 3
 Encoding: UTF-8
 RoxygenNote: 7.3.2

diff --git a/tests/testthat/_snaps/make_content.cat_plot_html/unused-categories-in-legend.svg b/tests/testthat/_snaps/make_content.cat_plot_html/unused-categories-in-legend.svg
diff --git a/tests/testthat/test-make_content.cat_plot_html.R b/tests/testthat/test-make_content.cat_plot_html.R
@@ -0,0 +1,8 @@
+testthat::test_that("show.legend works with unused categories", {
+    vdiffr::expect_doppelganger(title = "Unused categories in legend",
+                                fig = {
+      saros.contents::ex_survey |>
+        dplyr::filter(dplyr::if_all(p_1:p_4, ~.x != "Strongly agree")) |>
+        saros.contents::makeme(dep=p_1:p_4, indep=x1_sex)
+    })
+})