effectsize vdiffr test

easystats · Apr 27, 2024 · 3b0ff6f · 3b0ff6f
1 parent 7779233
commit 3b0ff6f
Show file tree

Hide file tree

Showing 2 changed files with 65 additions and 10 deletions.
diff --git a/tests/testthat/_snaps/plot.effectsize_table/aov-eta-squared-dot-plot.svg b/tests/testthat/_snaps/plot.effectsize_table/aov-eta-squared-dot-plot.svg
diff --git a/tests/testthat/test-plot.effectsize_table.R b/tests/testthat/test-plot.effectsize_table.R
@@ -1,13 +1,9 @@
 test_that("`plot.see_effectsize_table()` works", {
-  library(effectsize)
   m <- aov(mpg ~ factor(am) * factor(cyl), data = mtcars)
-  result <- eta_squared(m)
-  expect_s3_class(plot(result), "gg")
-})
-
-test_that("`plot.see_equivalence_test()` works", {
-  library(effectsize)
-  m <- aov(mpg ~ factor(am) * factor(cyl), data = mtcars)
-  result <- eta_squared(m)
-  expect_s3_class(plot(result), "gg")
+  result <- effectsize::eta_squared(m)
+  set.seed(123)
+  vdiffr::expect_doppelganger(
+    title = "aov - eta_squared - dot plot",
+    fig = plot(result)
+  )
 })