Enable tolerance

Author: hadley

R/expect-all.R

@@ -62,6 +62,7 @@ expect_all_equal_ <- function(act, exp, trace_env = caller_env()) {
     "Expected every element of %s to equal %s.",
     act,
     exp,
+    tolerance = testthat_tolerance(),
     trace_env = trace_env
   )
 }

tests/testthat/test-expect-all.R

@@ -20,6 +20,10 @@ test_that("can compare named lists", {
   expect_snapshot_failure(expect_all_equal(x, list(1)))
 })
 
+test_that("has tolerance enabled", {
+  expect_success(expect_all_equal(1, 1L))
+})
+
 test_that("truncates very long differences", {
   x <- rep(TRUE, 10)
   expect_snapshot_failure(expect_all_equal(x, FALSE))