Consistent tracae env usage

Author: hadley

R/expect-length.R

@@ -21,7 +21,7 @@ expect_length <- function(object, n) {
 
   if (act$n != n) {
     msg <- sprintf("%s has length %i, not length %i.", act$lab, act$n, n)
-    return(fail(msg, trace_env = parent.frame()))
+    return(fail(msg))
   }
   pass(act$val)
 }

R/snapshot-file.R

@@ -191,7 +191,7 @@ snapshot_file_equal <- function(
   path,
   file_equal = compare_file_binary,
   fail_on_new = FALSE,
-  trace_env = NULL
+  trace_env = caller_env()
 ) {
   if (!file.exists(path)) {
     abort(paste0("`", path, "` not found"))

R/snapshot-reporter.R

@@ -48,7 +48,7 @@ SnapshotReporter <- R6::R6Class(
       ...,
       tolerance = testthat_tolerance(),
       variant = NULL,
-      trace_env = NULL
+      trace_env = caller_env()
     ) {
       check_string(self$test, allow_empty = FALSE)
       i <- self$new_snaps$append(self$test, variant, save(value))
@@ -102,7 +102,7 @@ SnapshotReporter <- R6::R6Class(
       path,
       file_equal,
       variant = NULL,
-      trace_env = NULL
+      trace_env = caller_env()
     ) {
       self$announce_file_snapshot(name)