add missing trace_env arg in expect_nas_names_()

EmilHvitfeldt · EmilHvitfeldt · commit ea71d8ad3e13 · 2025-08-01T16:53:34.000-07:00
diff --git a/R/expect-named.R b/R/expect-named.R
@@ -72,11 +72,11 @@ normalise_names <- function(x, ignore.order = FALSE, ignore.case = FALSE) {
   x
 }
 
-expect_has_names_ <- function(act) {
+expect_has_names_ <- function(act, trace_env = caller_env()) {
   act_names <- names(act$val)
   if (identical(act_names, NULL)) {
     msg <- sprintf("%s does not have names.", act$lab)
-    return(fail(msg))
+    return(fail(msg, trace_env = trace_env))
   }
   return(pass(act$val))
 }

Original file line number	Diff line number	Diff line change
`@@ -72,11 +72,11 @@ normalise_names <- function(x, ignore.order = FALSE, ignore.case = FALSE) {`
`72`	`72`	`x`
`73`	`73`	`}`
`74`	`74`
`75`		`-expect_has_names_ <- function(act) {`
	`75`	`+expect_has_names_ <- function(act, trace_env = caller_env()) {`
`76`	`76`	`act_names <- names(act$val)`
`77`	`77`	`if (identical(act_names, NULL)) {`
`78`	`78`	`msg <- sprintf("%s does not have names.", act$lab)`
`79`		`- return(fail(msg))`
	`79`	`+ return(fail(msg, trace_env = trace_env))`
`80`	`80`	`}`
`81`	`81`	`return(pass(act$val))`
`82`	`82`	`}`