test

easystats · Jul 2, 2023 · 138d4d4 · 138d4d4
1 parent d921152
commit 138d4d4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/overlap.R b/R/overlap.R
@@ -52,7 +52,7 @@ overlap <- function(x, y, method_density = "kernel", method_auc = "trapezoid", p
 #' @export
 print.overlap <- function(x, ...) {
   insight::print_color("# Overlap\n\n", "blue")
-  cat(sprintf("%.2f", as.numeric(x)))
+  cat(sprintf("%.1f%%\n", 100 * as.numeric(x)))
 }
 
 

diff --git a/tests/testthat/test-overlap.R b/tests/testthat/test-overlap.R
@@ -4,4 +4,6 @@ test_that("overlap", {
   y <- distribution_normal(1000, 0, 1)
 
   expect_equal(as.numeric(overlap(x, y)), 0.185, tolerance = 0.01)
+  out <- capture.output(print(overlap(x, y)))
+  expect_identical(out, c("# Overlap", "", "18.6%"))
 })