fix tests

easystats · Sep 30, 2023 · c598a17 · c598a17
1 parent c532d69
commit c598a17
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/tests/testthat/test-p_map.R b/tests/testthat/test-p_map.R
@@ -4,8 +4,14 @@ test_that("p_map", {
   expect_equal(as.numeric(pmap), 0.9285376, tolerance = 0.001)
   expect_s3_class(pmap, "p_map")
   expect_s3_class(pmap, "data.frame")
-  expect_equal(dim(pmap), c(1, 1))
-  expect_output(print(pmap), "MAP-based p-value: 0.929")
+  expect_identical(dim(pmap), c(1L, 2L))
+  expect_identical(
+    capture.output(print(pmap)),
+    c(
+      "MAP-based p-value", "", "Parameter | p (MAP)",
+      "-------------------", "Posterior |   0.929"
+    )
+  )
 
   expect_equal(as.numeric(p_map(distribution_normal(1000))), 1, tolerance = 0.1)
   expect_equal(as.numeric(p_map(distribution_normal(1000, 1, 1))), 0.62, tolerance = 0.1)

diff --git a/tests/testthat/test-p_significance.R b/tests/testthat/test-p_significance.R
@@ -7,8 +7,8 @@ test_that("p_significance", {
   expect_s3_class(ps, "p_significance")
   expect_s3_class(ps, "data.frame")
   expect_identical(dim(ps), c(1L, 1L))
-  expect_output(
-    print(ps),
+  expect_identical(
+    capture.output(print(ps)),
     c(
       "Practical Significance (threshold: 0.10)",
       "",