Pass correct trace_env

hadley · hadley · commit fde86e047987 · 2025-07-29T15:24:06.000-05:00
diff --git a/R/expectations-matches.R b/R/expectations-matches.R
@@ -124,7 +124,7 @@ expect_match_ <- function(
       encodeString(regexp, quote = '"'),
       values
     )
-    return(fail(msg, info = info))
+    return(fail(msg, info = info, trace_env = caller_env()))
   }
   pass(act$val)
 }

Original file line number	Diff line number	Diff line change
`@@ -124,7 +124,7 @@ expect_match_ <- function(`
`124`	`124`	`encodeString(regexp, quote = '"'),`
`125`	`125`	`values`
`126`	`126`	`)`
`127`		`- return(fail(msg, info = info))`
	`127`	`+ return(fail(msg, info = info, trace_env = caller_env()))`
`128`	`128`	`}`
`129`	`129`	`pass(act$val)`
`130`	`130`	`}`