使用devtools与testthat执行R多警告单元测试的行为不一致问题

正确处理方式 #

测试抛出多个警告的函数时，不要嵌套/管道调用expect_warning()，推荐以下两种标准写法：

方式1：指定警告数量 #

用expect_warning()的n参数明确声明期望的警告总数：

test_fun = function(){
  warning("Warning 1")
  warning("Warning 2")
}

testthat::test_that("Test multiple warnings", {
  testthat::expect_warning(test_fun(), n = 2)
})

方式2：匹配具体警告内容（推荐） #

testthat 3.2+版本支持expect_warnings()，可以直接匹配多个警告的文本：

test_fun = function(){
  warning("Warning 1")
  warning("Warning 2")
}

testthat::test_that("Test multiple warnings", {
  testthat::expect_warnings(test_fun(), c("Warning 1", "Warning 2"))
})

行为差异的原因 #

1. 直接运行测试的逻辑 #

expect_warning()默认仅捕获并消耗第一个警告，返回的是函数的执行结果（无警告残留）。所以你最初的管道写法expect_warning(test_fun()) |> expect_warning()中：

• 第一个expect_warning()捕获了"Warning 1"，剩余的"Warning 2"未被它处理，但函数结果已无警告；
• 第二个expect_warning()接收的是无警告的结果，自然判定失败。

当你移除第二个expect_warning()时，expect_warning(test_fun())默认只检查“存在至少1个警告”，测试通过，未被捕获的第二个警告会被testthat的测试框架自动抑制，不会显示。

2. devtools::test_active_file()的特殊机制 #

devtools运行测试时，会启用testthat的全局警告收集机制：

• 对于你最初的管道写法，第一个expect_warning()捕获"Warning 1"后，剩余的"Warning 2"被全局机制接管，导致第二个expect_warning()误判为有警告可捕获，测试通过；
• 当你移除第二个expect_warning()时，全局机制会把未被单个expect_warning()捕获的"Warning 2"输出到控制台，所以你会看到警告弹出，但测试本身因满足“至少1个警告”的条件仍会通过。

这种差异本质是devtools与直接运行测试时，警告捕获的作用域和处理逻辑不同导致的。

内容的提问来源于stack exchange，提问作者Niclas