update tests

easystats · Jan 30, 2025 · 070c69f · 070c69f
1 parent 729c5eb
commit 070c69f
Show file tree

Hide file tree

Showing 8 changed files with 1,358 additions and 713 deletions.
diff --git a/tests/testthat/_snaps/vdiffr_themes/theme-abyss-works.svg b/tests/testthat/_snaps/vdiffr_themes/theme-abyss-works.svg
diff --git a/tests/testthat/_snaps/vdiffr_themes/theme-blackboard-works-with-base-size.svg b/tests/testthat/_snaps/vdiffr_themes/theme-blackboard-works-with-base-size.svg
diff --git a/tests/testthat/_snaps/vdiffr_themes/theme-blackboard-works.svg b/tests/testthat/_snaps/vdiffr_themes/theme-blackboard-works.svg
diff --git a/tests/testthat/_snaps/vdiffr_themes/theme-lucid-works-with-base-size.svg b/tests/testthat/_snaps/vdiffr_themes/theme-lucid-works-with-base-size.svg
diff --git a/tests/testthat/_snaps/vdiffr_themes/theme-lucid-works.svg b/tests/testthat/_snaps/vdiffr_themes/theme-lucid-works.svg
diff --git a/tests/testthat/_snaps/vdiffr_themes/theme-modern-works-with-base-size.svg b/tests/testthat/_snaps/vdiffr_themes/theme-modern-works-with-base-size.svg
diff --git a/tests/testthat/_snaps/vdiffr_themes/theme-modern-works.svg b/tests/testthat/_snaps/vdiffr_themes/theme-modern-works.svg
diff --git a/tests/testthat/test-vdiffr_themes.R b/tests/testthat/test-vdiffr_themes.R
@@ -35,6 +35,14 @@ test_that("theme functions work", {
       theme_modern()
   )
 
+  set.seed(123)
+  vdiffr::expect_doppelganger(
+    title = "theme_modern works with base_size",
+    fig = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = Species)) +
+      geom_point() +
+      theme_modern(base_size = 20)
+  )
+
   set.seed(123)
   vdiffr::expect_doppelganger(
     title = "theme_lucid works",
@@ -43,6 +51,14 @@ test_that("theme functions work", {
       theme_lucid()
   )
 
+  set.seed(123)
+  vdiffr::expect_doppelganger(
+    title = "theme_lucid works with base_size",
+    fig = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length)) +
+      geom_point(color = "white") +
+      theme_lucid(base_size = 20)
+  )
+
   set.seed(123)
   vdiffr::expect_doppelganger(
     title = "theme_abyss works",
@@ -58,4 +74,12 @@ test_that("theme functions work", {
       geom_point(color = "white") +
       theme_blackboard()
   )
+
+  set.seed(123)
+  vdiffr::expect_doppelganger(
+    title = "theme_blackboard works with base_size",
+    fig = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length)) +
+      geom_point(color = "white") +
+      theme_blackboard(base_size = 18)
+  )
 })