Allow to set a tolerance for set_state_inspector().

Author: mcol

NEWS.md

@@ -1,5 +1,6 @@
 # testthat (development version)
 
+* `set_state_inspector()` now allows to control the tolerance (#2237).
 * New `vignette("mocking")` explains mocking in detail (#1265).
 * New `vignette("challenging-functions")` provides an index to other documentation organised by testing challenges (#1265).
 * When running a test interactively, testthat now reports the number of succeses. The results should also be more useful if you are using nested tests.

R/test-state.R

@@ -42,7 +42,9 @@
 #' @export
 #' @param callback Either a zero-argument function that returns an object
 #'   capturing global state that you're interested in, or `NULL`.
-set_state_inspector <- function(callback) {
+#' @param tolerance Numerical tolerance: any differences (in the sense of
+#'   [base::all.equal()]) smaller than this value will be ignored.
+set_state_inspector <- function(callback, tolerance = testthat_tolerance()) {
   if (
     !is.null(callback) &&
       !(is.function(callback) && length(formals(callback)) == 0)
@@ -51,11 +53,13 @@ set_state_inspector <- function(callback) {
   }
 
   the$state_inspector <- callback
+  the$state_inspector_tolerance <- tolerance
   invisible()
 }
 
 testthat_state_condition <- function(before, after, call) {
-  diffs <- waldo_compare(before, after, x_arg = "before", y_arg = "after")
+  diffs <- waldo_compare(before, after, x_arg = "before", y_arg = "after",
+                         tolerance = the$state_inspector_tolerance)
 
   if (length(diffs) == 0) {
     return(NULL)