主页 / coding / 问题 / 79564911
Accepted
VinceGreg
Asked: 2025-04-10 00:58:51 +0800 CST

使用 testthat::expect_warning() 测试多个警告

  • 772

我的一个函数抛出了多个警告，我想用 来测试一下testthat::expect_warning()。我可以检查一下设计，但文档似乎说这是可能的，使用已弃用的参数all：

all：已弃用如果您需要测试多个警告/消息，您现在需要多次调用 expect_message()/ expect_warning()

（感谢这个答案后的评论）

在下面的 reprex 中（受文档示例启发），devtools::check()正在通过。 devtools::test()也正在通过，但它也会引发警告（当测试特定警告时，会引发另一个警告）。

由于所有警告都是预期的，那么测试多个警告的正确方法是什么？

f1.R

f1 <- function(x) {
  if (x < 0) {
    warning("*x* is already negative")
    warning("this is a second warning")
    return(x)
  }
  -x
}

测试-f1.R

test_that("testing", {
 # Testing the function
  expect_equal(f1(2), -2)
 # Testing a generic warning
  expect_warning(f1(-1))
  # Testing the first warning
  expect_warning(f1(-1), "already negative")
  # Testing the second warning
  expect_warning(f1(-1), "second")
  # Testing no warning
  expect_warning(f1(1), NA)
})

相关输出test()

对应于expect_warning(f1(-1))

警告（test-f1.R:5:3）：测试这是第二个警告

对应于expect_warning(f1(-1), "already negative")

警告（test-f1.R:6:3）：测试这是第二个警告

对应于expect_warning(f1(-1), "second")

警告（test-f1.R:7:3）：测试x已经为负数

2 个回答

  1. Best Answer

    我认为你不能直接用 来做这件事expect_warning，但你可以capture_warnings用 来检查所有预期的事情。

    testthat::capture_warnings(f1(-1))
# [1] "*x* is already negative"  "this is a second warning"

testthat::expect_true(
  all(colSums(
    sapply(c("already negative", "second warning"), grepl,
           testthat::capture_warnings(f1(-1)))
  ) > 0)
)

    使用sapply警告消息向量应确保您获得每种模式中的至少一个。

    编写自定义期望并不难：

    expect_warnings <- function(object, warnings, ...) {
  wrns <- testthat::capture_warnings({
    act <- testthat::quasi_label(rlang::enquo(object), arg = "object")
  })
  res <- vapply(warnings, function(wrn) any(grepl(wrn, wrns)), FUN.VALUE = logical(1))
  if (all(res)) {
    testthat::succeed()
    return(invisible(act$val))
  } else {
    msg <- sprintf("%s did not produce one or more warnings: %s", act$lab, toString(names(res)[!res]))
    testthat::fail(msg)
  }
}

expect_warnings(f1(-1), c("already", "second"))
### test succeeds

expect_warnings(f1(1), c("already", "second"))
# Error: f1(1) did not produce one or more warnings: already, second

expect_warnings(warning("second line"), c("already", "second"))
# Error: warning("second line") did not produce one or more warnings: already

    根据您的需要和偏好，您可能想要/需要玩耍...和/或争论。grepl(.)

    • 2

  2. 我终于找到了这篇关于 testthat 第三版的vignette("third-edition",package ="testthat")短文/文章。调用之间可以使用管道。expect_warning()

    在第三版中，expect_warning() 最多捕获一个警告，因此其他警告将会冒泡：

    local_edition(3)
expect_warning(f(), "First")
Warning in f(): Second warning
Warning in f(): Third warning

    您可以添加额外的期望来捕获这些警告，或者使用 suppressWarnings() 将它们全部静音：

    f() %>% 
expect_warning("First") %>% 
expect_warning("Second") %>% 
expect_warning("Third")

f() %>% 
expect_warning("First") %>% 
suppressWarnings()

    本文还讨论了第二版的行为。

    • 0

相关问题