Use testthat_warn

hadley · hadley · commit 6545cbeea5aa · 2025-07-31T08:28:17.000-05:00
diff --git a/R/expect-setequal.R b/R/expect-setequal.R
@@ -84,7 +84,7 @@ expect_mapequal <- function(object, expected) {
 
   # Length-0 vectors are OK whether named or unnamed.
   if (length(act$val) == 0 && length(exp$val) == 0) {
-    warn("`object` and `expected` are empty lists")
+    testthat_warn("`object` and `expected` are empty lists")
     return(pass(act$val))
   }
 

Original file line number	Diff line number	Diff line change
`@@ -84,7 +84,7 @@ expect_mapequal <- function(object, expected) {`
`84`	`84`
`85`	`85`	`# Length-0 vectors are OK whether named or unnamed.`
`86`	`86`	`if (length(act$val) == 0 && length(exp$val) == 0) {`
`87`		- warn("`object` and `expected` are empty lists")
	`87`	+ testthat_warn("`object` and `expected` are empty lists")
`88`	`88`	`return(pass(act$val))`
`89`	`89`	`}`
`90`	`90`