add test for ROC function

easystats · Mar 23, 2024 · 44e145b · 44e145b
1 parent 4a27a1c
commit 44e145b
Show file tree

Hide file tree

Showing 2 changed files with 64 additions and 2 deletions.
diff --git a/tests/testthat/_snaps/plot.performance_roc/plot-see-performance-roc-works.svg b/tests/testthat/_snaps/plot.performance_roc/plot-see-performance-roc-works.svg
diff --git a/tests/testthat/test-plot.performance_roc.R b/tests/testthat/test-plot.performance_roc.R
@@ -4,12 +4,15 @@ test_that("`plot.see_performance_roc()` works", {
   folds <- sample(nrow(iris), size = nrow(iris) / 8, replace = FALSE)
   test_data <- iris[folds, ]
   train_data <- iris[-folds, ]
-  model <- glm(
+  model <- stats::glm(
     y ~ Sepal.Length + Sepal.Width,
     data = train_data,
     family = "binomial"
   )
   result <- performance::performance_roc(model, new_data = test_data)
 
-  expect_s3_class(plot(result), "gg")
+  vdiffr::expect_doppelganger(
+    title = "plot.see_performance_roc() works",
+    fig = plot(result)
+  )
 })